Заполнить двухмерный массив по образцу. 01234 12345 23456 34567 45678

var a:array[0..4,0..4] of integer; i,j,m:integer;beginfor i:=0 to 4 do begin m:=i;for j:=0 to 4 do begin  a[i,j]:= m; write(a[i,j]:2); m:=m +1; end; writeln; end; end.

// PascalABC.NET 3.0, сборка 1088var  a:array[1..5,1..5] of byte;  i,j:byte;begin  for i:=1 to 5 do begin    for j:=1 to 5 do begin a[i,j]:=i+j-2; Write(a[i,j]) end;    Writeln  endend.Тестовое решение:0123412345234563456745678