{ 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.