profil

program antymatrix

poleca 87% 103 głosów

Treść
Grafika
Filmy
Komentarze

program antymatrix;
uses CRT;
var k,i,m:integer;
begin
clrscr;
textcolor(lightgreen);
repeat
m:=random(25);
For i:=1 to 80 do
begin
gotoXY(i,m+1);
k:=random(10);
write(k);
delay(10);
end;
until keypressed;
end.

Czy tekst był przydatny? Tak Nie