Cod sursa(job #118159)

Utilizator DanielGGlodeanu Ioan Daniel DanielG Data 23 decembrie 2007 12:04:59
Problema Next Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.24 kb
var m,n,d,i:longint;
f,g:text;
begin
assign(f,'next.in');reset(f);
assign(g,'next.out');rewrite(g);
readln(f,n);
read(f,d);
i:=2147483647;
for m:=n to i do
if m mod d=0 then
begin
write(g,m);
break;
end;
close(f);
close(g);
end.