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

с внедрением матрицы / одномерного массива?

нет

В ответ писать не буду не уверен

12345678910111213141516171819202122232425Vara:array[1..100,1..100] of integer;n,m,i,j:byte;f1,f2:text;BeginAssign(f1,'input.txt');Assign(f2,'output.txt');Reset(f1);Readln(f1,n,m);for i:=1 to n do begin for j:=1 to m do Read(f1,a[i,j]); Readln(f1); end;Close(f1);Rewrite(f2);for i:=1 to n do begin for j:=1 to m do Write(f2,a[i,j],' '); Writeln(f2); end;Close(f2);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.