Вывести на экран последующую таблицу (Pascal):1 2 3 4 52 3

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

меняя стартовые значения переменных 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 gt; s then d := 1;

           write(d, ' ');

       end;

       writeln;

       k += 1;

       if k gt;= s then k := 0;      

       d := k;

   end;

end.

Program n_1;

var a, i:integer;

begin

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

   writeln;

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

   writeln;

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

end.