program matrix;

uses CRT;

var Counter,m,k :integer;

begin

clrscr;

textcolor(green);

repeat

m:=random(25);

For Counter:=1 to 80 do

begin

gotoXY(Counter,m+1);

k:=random(10);

write(k);

delay(10);

end;

until keypressed;

end.