Код:
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.
Забавная прога получилась... Кого учителя линейкой по руках за использование меток не били, самое время начать... Не понимаю, че им в метках не нравится?