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

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