Правила форума
Random.PASЯзык:
Русский
English
uses Crt;
begin
Randomize;
repeat
{ Выводим текст случайными цветами }
TextAttr := Random(256);
Write('!');
until KeyPressed;
end.
begin
Randomize;
repeat
{ Выводим текст случайными цветами }
TextAttr := Random(256);
Write('!');
until KeyPressed;
end.
::
::
::
