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

var
  a,p,s:real;

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

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

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