Question

Дана площадь квадрата. Составьте программу для его сторон и периметра.

Answer 1

Program patrart;
var a,p,l:real;
begin
write('плошадь=');
readln(a);
l:=sqrt(a);
p:=l*4;
writeln('сторона=',l);
writeln('периметр=',p);
end.