Solução em Pascal do Problema 15

program CongruenteMódulo;

var n, i, m, j : Integer;

begin
 i=0;
 readLn(n, m, j);
 while n<>0 do
  begin
   if i mod m = j mod m
    then begin
     writeLn('Natural=',i);
     n:=n-1
    end;
   i:=i+1
  end
end.