Cod sursa(job #37427)
Utilizator | The Judger thejudger | Data | 25 martie 2007 09:27:13 |
---|---|---|---|
Problema | Next | Scor | 0 |
Compilator | fpc | Status | done |
Runda | preONI 2007, Runda 4, Clasa a 9-a si gimnaziu | Marime | 0.28 kb |
var f,g:text;
n,d:longint;
ok:boolean;
begin
assign(f,'next.in');reset(f);
assign(g,'next.out');rewrite(g);
readln(f,n);
readln(f,d);
repeat
ok:=false;
if n mod d=0 then ok:=true
else inc(n);
until ok;
if ok then writeln(g,n);
close(f);
close(g);
end.