Правила форума
Exit.PASLanguage:
Русский
English
{Exit.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the Exit procedure.}
uses WinCrt;
procedure WasteTime;
begin
repeat
if KeyPressed then Exit;
Write('Xx');
until False;
end;
begin
WasteTime;
end.
::
::
::
