Впаскале двухмерный массив размерностью 6 и 4 заполнить 1 строку единицами , 2 строку двойками, 3 строку тройками.

Var
  i,j:integer;
  a:array[1..6,1..4]of integer;
begin
for i:=1 to 3 do
  for j:=1 to 4 do  a[i,j]:=i;
for i:=4 to 6 do
  for j:=1 to 4 do  a[i,j]:=random(10);
writeln('Массив: ');
for i:=1 to 6 do
  begin
  for j:=1 to 4 do  write(a[i,j]:3);
  writeln;
  end;
end.