[YVitaliy]

Код:

program HelloWorld;
 uses
    Crt;
  Var
    otvet:string;
    Label L1, L2;
    Begin
      writeln;
      writeln;
      writeln;
      writeln;
      writeln('Ну как, завершим программу?');
      readln(otvet);
      if otvet='Да, завершим программу' then
        GoTo L1;
      L1:
        Writeln('Вы уверены? (Y/N)');
        if ReadKey='y' then
          GoTo L2
        else
        begin
          ClrScr;
          GoTo L1;
        end;

      L2:
         Writeln('Неее, выходить ещё рано!');

       asm
         nop
       end;

    end.

Забавная прога получилась... Кого учителя линейкой по руках за использование меток не били, самое время начать... Не понимаю, че им в метках не нравится?