Cod sursa(job #118158)

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