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

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.

Comments

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

---

спасибо!:)