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

Вопрос школьника по предмету Физика

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.