Урок 13.1 Задача10

program  u131z10;
var i, j, n, m: integer;

begin
  writeln ('vvedite chislo');
  readln(m);
  writeln ('vvedite chislo');
  readln(n);

  for  i:=1 to m do
    begin
    for j:= 1 to n do
        begin
         if (m mod 2 = 0) then
         write (j,' ')
         else
         write (j/2,' ');
        end;
    end;

  readln();

end.