Program n_1;

var a, i:integer;

begin

   for i:=1 to 5 do write(i, ' ');

   writeln;

   for i:=2 to 6 do if (i>5) then write(i-5, ' ') else write(i, ' ');

   writeln;

   for i:=3 to 7 do if (i>5) then write(i-5, ' ') else write(i, ' ');

end.

сделал программку немножко посложнее :))

меняя стартовые значения переменных r и s можно построить таблицу любого размера с теми же правилами

var

   r : integer := 3; // количество строк

   s : integer := 5; // количество цифр в строке

   k, d : integer;

begin

   for var i := 1 to r do begin

       for var j := 1 to s do begin

           d += 1;

           if d > s then d := 1;

           write(d, ' ');

       end;

       writeln;

       k += 1;

       if k >= s then k := 0;      

       d := k;

   end;

end.