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

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