Написать программу вычисления стороны квадрата по заданной площади

Var S:real;
Begin
Write('Введите площадь квадрата: ');ReadLn(S);
WriteLn('Сторона квадрата: ',Sqrt(S))
End.