ПОМОГИТЕ,ПОЖАЛУЙСТА!!!Как найти периметр квадрата в Паскале,если дана его площадь...

Question

ПОМОГИТЕ,ПОЖАЛУЙСТА!!!Как найти периметр квадрата в Паскале,если дана его площадь .Заранее спасибо.

Answer 1

Var
  a,p,s:real;

begin
  Write('Введите площадь квадрата: ');
  Readln(s);
  a:=sqrt(s);
  p:=4*a;
  Writeln('Периметр квадрата равен ',p)
end.

Тестовое решение:

Введите площадь квадрата: 13.7
Периметр квадрата равен 14.8054044186574