Статья: Метки. Оператор GOTO. Процедура Halt

IF x<0 THEN BEGIN WRITELN('ошибка !'); HALT; END;

x:=SQRT(x);

{вычисление функции от x}

END.

Наша программа стала почти идеальной. Доведем ее до совершенства :

VAR x : Real;

BEGIN REPEAT

WRITE('Введите неотрицательное число ');

READ(x);

WRITELN;

UNTIL x>=0;

x:=SQRT(x);

{вычисление функции от x}

END.