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

Запросы продолжаются до тех пор, пока пользователь не введет отрицательное число.

var x:integer;
begin
  repeat
  writeln('Введите положительное число: ');
  readln(x);
  if x>=0 then writeln('Корень квадратный из ',x,' = ',sqrt(x));
  until x<0;
end.

автор: capricornus CF