Random.PAS

Language:
Русский
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.

Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //