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

Периметр квадрата 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.