Напишите программу ** языке паскаль "вычислить площадь квадрата если известен периметр"

Question

Напишите программу на языке паскаль "вычислить площадь квадрата если известен периметр"

Answer 1

Var
p, s: real;
begin
readln(p);
s:=sqr(p/4);
writeln(s);
end.