Kodas:

program Spalvos;

uses crt; {naudojame šį modulį, nes jis reikalingas norint pakeisti spalvas Passcal programoje}

procedure Kiek (sim:char);{sukuriame procedūrą, kuri atsitiktiniu
būdu pasirenka vietą ir joje taip pat atsitiktine tvarka nuspalvina ir padeda tam tikrą ženklą}

var sp,x,y:integer;

begin

randomize;

repeat

x := random(80);

y := random(24);

sp := random(15);



GoToXY(x,y);{Nustatome vietą, kurioje rašysime}

TextColor (sp); Write(sim);

Delay(100);{nustatome pauzę, po kurios bus kartojama procedūra, šiuo atveju 0,1 sekundės}

until Keypressed;{visas procesas kartosis tol, kol nebus paspaustas mygtukas ENTER}

Readln;

end;

begin

ClrScr;

kiek('*');{šiuose skliaustuose gali būti bet koks simbolis, kai bus paspaustas enter,}

kiek(#15);{bus kartojamas kitas 'kiek()'}

kiek(#21);

kiek(#39);{#15 #21..... tai specialūs simboliai, kurių su klaviatūra neparašysi}

kiek(#4);

kiek('4');

kiek(#7);

kiek(#176);

kiek(#177);

end.