Udělá na obrazovce peknej brajgl a poté počká na stisk entru

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategórie: KMP (Programy mladých programátorů)

Autor: Pavel Paták
web: www.webpark.cz/programar

Program: Nahznaky.pas
Soubor exe: Nahznaky.exe

Udělá na obrazovce peknej brajgl a poté počká na stisk entru.
{ NAHZNAKY.PAS                            Copyright (c) Pavel Patak }
{ Udela na obrazovce peknej brajgl a pote pocka na stisk entru      }
{                                                                   }
{ Datum:28.10.2004                             http://www.trsek.com }
 
Program NahodneZnaky;
Uses Crt;
Begin
ClrScr;
Randomize;
 Repeat
   TextColor(Random(17));
   Write(Chr(Random(256)));
 Until Random(1000)=917;
Readln;
End.