Cod sursa(job #37497)

Utilizator ScottieStegaroiu Petre Scottie Data 25 martie 2007 10:32:50
Problema Next Scor 0
Compilator fpc Status done
Runda preONI 2007, Runda 4, Clasa a 9-a si gimnaziu Marime 0.2 kb
Raporteaza aceasta sursa 
var n,m,d,i:longint;
    f,g:text;
begin
assign(f,'next.in'); reset(f);
assign(g,'next.out'); rewrite(g);
read(f,n );
read(f,d);
while n mod d<>0 do n:=n+1;
writeln(g,n);
close (f);
close(g);
end.