Правила форума
Exit.PASЯзык:
Русский
English
{Exit.PAS}
{ Пример программы для процедуры Exit }
uses Crt;
procedure WasteTime;
begin
repeat
if KeyPressed then
Exit;
Write('Xx');
until False;
end;
begin
WasteTime;
end.
procedure WasteTime;
begin
repeat
if KeyPressed then
Exit;
Write('Xx');
until False;
end;
begin
WasteTime;
end.
::
::
::
