Ответы и объяснения

Лучший Ответ!
2013-10-30T13:09:45+00:00
Uses crt;
var p:integer;
a,s:real;
begin;
readln(p);
a:=p/4;
s:=a*a;
writeln(s);
end.