Вопрос Напишите программу Паскаль.

[Каймараз]

var a:array[1..4,1..5] of byte; i,j,k:byte; begin k:=0; for i:=1 to 4 do begin for j:=1 to 5 do begin a[i,j]:=i+j-1+k; write(a[i,j],) end; inc(k); writeln end end.

 

[janjika]

примерно так j:=3; while j<8 do begin for i:=0 to 4 do write(j+i,); writeln; j:=j+2; end;

 

[настя]

Turbo Pascal 7.0 uses crt; var i, j: integer; begin clrscr; for i:= 0 to 3 do begin for j:=1 to 5 do write (j+i*2:4); writeln; end; readln; end.