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ória: KMP (Klub mladých programátorov)

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

Program: Nahznaky.pas
Súbor 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.