В диалоговом режиме вводится некоторое число N (В диапазоне от 1 до 2000). Программа должна вывести числа, определенные заданием в виде нескольких колонок, выровненных по правому краю. Все числа от 1 до N натуральные. 1. Распечатать все числа от 1 до N, у которых остатки от деления на число Z не превышают числа M — Pascal(Паскаль)

program Ost;

uses crt;

var
  n, z, m: integer;

procedure Print(n, z, m: integer);
var
  i, col: integer;
begin
  col := 1;
  writeln('Result: ');
  for i := 1 to n do
  begin
    if (i >= z) then
    begin
      if ((i mod z) <= m) then
      begin
        if (col mod 2 <> 0) then
          write(i:5)
        else
          writeln(i:5);
        inc(col);
      end;
    end;
  end;
end;

Begin
  write('Enter n, z and m: ');
  read(n);
  read(z);
  readln(m);

  Print(n, z, m);

End.