var p,d,n:integer;
begin
writeln('введите периметр');
readln(p);
n:=p/4;
d:=SQRT(n^2+n^2)
writeln('сторона=',n);
writeln('диагональ=,d);
end.
