Question

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

Answer 1

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

Answer 2

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

Answer 3

спасибо!:)