Question

Написать программу для решения задачи: дан периметр квадрата – 20 см. Найти его площадь.

Answer 1

var a,s,p:integer;
 begin 
read(p); 
a:=p div 4; 
writeln('Площадь=',sqr(a)); 
end.