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

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