p=400кило Паскаль s=0,10м квадрат P=?

var  s, a, p: real;begin  write('Введите площадь квадрата: ');  read(s);  a := sqrt(s); //Сторона  p := a * 4; //Периметр  writeln('Сторона квадрата = ', a : 0 : 2);  writeln('Периметр квадрата = ', p : 0 : 2);end.