Cod sursa(job #53170)
Utilizator | Data | 21 aprilie 2007 13:05:12 | |
---|---|---|---|
Problema | Next | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.35 kb |
var d,m,n,i:longint;
fi,fo:text;
begin
assign(fi,'next.in'); reset(fi);
assign(fo,'next.out'); rewrite(fo);
readln(fi,n,d);
if d>=n then m:=d
else
for i:=n to 1000000000 do
if i mod d=0 then begin m:=i; break; end;
writeln(fo,m);
close(fi); close(fo);
end.