var a: real; // сторона квадрата
S: real; // площадь квадрата
P: real; // периметр квадрата
begin
readln(P);
a := P / 4;
S := sqr(a);
writeln('Ответ:', S);
end.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a: real; // сторона квадрата
S: real; // площадь квадрата
P: real; // периметр квадрата
begin
readln(P);
a := P / 4;
S := sqr(a);
writeln('Ответ:', S);
end.