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

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