var m,n:word; i:word;
begin
  readln(m,n);
  for i:=1 to n do
  begin
    write(i,' ');
  end;
  writeln;
  for i:=1 to m do
  begin
    write(i*n+1,' ');
  end;
end.

What test is wrong with it?

Edited by author 07.07.2016 17:05