Правила форума
Random.PASLanguage:
Русский
English
{Random.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the Random function and Randomize procedure.}
uses Crt;
begin
Randomize;
repeat
{ Write text in random colors }
TextAttr := Random(256);
Write('!');
until KeyPressed;
end.
::
::
::
