Найти все пятизначные числа, которые при делении на A дают в остатке B, а при делении на C дают в остатке D

var a,b,c,d:integer;
    k:integer;
    i:longint;
begin
  assign(input,'input.txt');reset(input);
  assign(output,'output.txt');rewrite(output);
  readln(a,b);
  readln(c,d);
  k:=-1;
  i:=10000;
  while i<100000 do
     begin
        if (i mod a = b) and (i mod c = d)
         then
          begin
           write(i,' ');
           inc(k)
          end;
        inc(i)
     end;
  if k=-1 then write(k)
end.

var
  a,b,c,d:integer;
  i,j:longint;
begin
  repeat
    readln(a,b);
    readln(c,d);
    j:=10000;
    if (a=0) or (c=0) then writeln('a,c must be greater than zero!');
  until (a>0) and (c>0);
  for i:=10000 to 100000 do
    if (i mod a=b) and (i mod c=d) then write(i,'  ') else inc(j);
  if j>100000 then writeln('-1');
  readln;
end.

const
  rb=10000; re=rb*10-1;
  s: array [Boolean] of String[1]=('',' ');
var
  a, b, c, d, k: Integer;
  i: Longint;
begin
  Assign(input,'input.txt'); Reset(input);
  Assign(output,'output.txt'); Rewrite(output);
  ReadLn(a,b); ReadLn(c,d); {k:=0;}
  if (a>0) and (b>=0) and (c>0) and (d>=0) and (b<a) and (d<c) then begin
    for i:=rb to re do
      if (i mod a=b) and (i mod c=d) then begin
        Write(s[k>0],i); Inc(k);
      end;
  end;
  if k=0 then Write(-1);
  {WriteLn;}
  Close(input); Close(output);
end.