Cod sursa(job #113695)

Utilizator AndreiDDiaconeasa Andrei AndreiD Data 11 decembrie 2007 10:05:10
Problema Next Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.26 kb
Raporteaza aceasta sursa 
var n,m,d:longint;
f,g:text;
begin
assign(f,'next.in');reset(f);
assign(g,'next.out');rewrite(g);
read(f,n);
read(f,d);
if n mod d=0 then m:=n
             else begin
m:=n;
repeat
m:=m+1;
until m mod d=0;
end;
write(g,m);
close(f);
close(g);
end.