program P2B;
uses crt;

const dl   = 8; {max dl*szer = 100 }
      szer = 5;

var i, j, k, l, z               :byte;
    t:array [1..dl , 1..szer] of word;

BEGIN
clrscr;
z:=0;
for i:= 1 to dl do
   begin
   for j:= 1 to szer do
     t[i,j]:=j+z;
   inc(z,szer);
   writeln
   end;

gotoxy(3*szer,dl+1);
for k:= 0 to szer-1 do
   begin
   for l:=0 to dl-1 do
     begin
     gotoxy(wherex-2,wherey-1);
     write(t[i-l,j-k]:2);
     delay(50)
     end;
   gotoxy(wherex-3,wherey+dl)
   end;

readkey
END.