помогите со 2 задачкой! пожалуйста, сделать надо на паскале

При периметре 36, площадь будет 81.

спасибо!:)

Program z2; var s,p,a:real; Begin Writeln ('Введите периметр квадрата'); readln (p); a:=p/4; s:= sqr(a); Writeln ('s=',s); End.