01.04.2013, 14:24
|
|
.
|
|
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
|
|
Код:
begin
L1:
WriteLn('Вы уверены? (Y/N)');
if ReadKey = 'y' then
GoTo L2
else
begin
ClrScr;
GoTo L1;
end;
L2:
WriteLn('Неее, выходить ещё рано!');
end;
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
|