Question

Задача: Дан периметр квадрата. Определить его площадь.

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

Program test8;

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

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

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

Begin

Readln ( );

:= / 4;

S := (a);

Writeln (‘Ответ: ’, );

End