Cod sursa(job #37427)

Utilizator thejudgerThe 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.