Показать сообщение отдельно
  #12  
Старый 01.04.2013, 14:24
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 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 в.д.