Question

ПОМОГИТЕ ПОЖАЛУЙСТА Задача: Дан периметр квадрата. Определить его площадь.
Ученик не дописал решение задачи. Заполните пропуски так, чтобы программа решала поставленную задачу.
Program
Var a : real; // сторона квадрата
S : real; // площадь квадрата
P : real; // периметр квадрата
Begin
Readln (_______);
________ := ___/ 4;
S := ________(a);
Writeln (‘Ответ: ’, ________);
End.

Answer 1

var

a:real;

S:real;

P:real;

begin

readln(P);

a:=P/4;

S:=sqr(a);

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

readln;

end.