Написать на паскале программу для нахождения квадратного корня

Var  x: real;
begin
  writeln('введите число: ');
  readln(x);
  writeln('корень ',x,' = ', sqrt(x));
  readln;
end.