[Mrak]

Код:

1: if otvet = 'Да, завершим программу' then GOTO 1;

[YVitaliy]

Пусть метка будет называться L1, L2

Код:

var ...
label L1, L2;

Код:

L1:
 Begin
   Writeln('Вы уверены? (Y/N)');
   if readkey='y' then GOTO L2;
 End;

[angvelem]

Код:

begin
L1:
  WriteLn('Вы уверены? (Y/N)');
  if ReadKey = 'y' then
    GoTo L2
  else
  begin
    ClrScr;
    GoTo L1;
  end;

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

[Bargest]

Код:

asm

^_^

[M.A.D.M.A.N.]

Код:

nop

[angvelem]

Код:

lea eax, [eax + ebx * 2]

_____

[Alegun]

Код:

 mov eax, 09h
 int 21h
 end; {asm}