Помогите пожалуйста срочно! задача в Паскале
Двухмерный массив размерностью 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.