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.