Pascal Контроль ввода нуля

[#Azamat]

Программа закончит свою работу, если вы специально или по ошибре ввели нуль в качестве требуемого числа. Здесь продемонстрировано назначение меток (Label) и так страстно ругаемое применение оператора GoTo (Идти на).

Program KONTROL;
Label A;
Var I : Integer;
Begin
A:
Write(‘Введите число. 0 - выход из программы’); Readln(I);
Writeln(‘Вы ввели число = ’, I);
IF I <> 0 then Goto A;
End.

Автор: Неизвестен