Question

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

Answer 1

var a: real; // сторона квадрата

S: real; // площадь квадрата

P: real; // периметр квадрата

begin

 readln(P);

 a := P / 4;

 S := sqr(a);

 writeln('Ответ:', S);

end.