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

Периметр квадрата p = 4*a, где а — сторона квадрата.

a = p / 4.

Площадь квадрата S = a^2 = p^2 / 16.

Последнюю формулу используем в программе.

program area;

var p: real;

begin

write(\'Perimeter p = \');

Readln(p);

Writeln(\'Area S = \', power(p,2)/16)

end.