Question

Задача: Дан периметр квадрата. Определить его площадь. Ученик не дописал решение задачи. Заполните пропуски так, чтобы программа решала поставленную задачу.

Answer 1

var

a:real;

S:real;

P:real;

begin

readln(P);

a:=P/4;

S:=sqr(a);

writeln('Площадь ',S);

readln;

end.