Составьте программу ** языке Pascal:Дана площадь квадрата вычислить периметр...

Question

Составьте программу на языке Pascal:Дана площадь квадрата вычислить периметр квадратаПомогите, пожалуйста(​

Answer 1

var a,S,P: real;

begin

writeln('Введите S квадарата: ');

readln(S);

a:=sqrt(S);

P:=a*4;

writeln('P = ',P);

end.