Cod sursa(job #53170)

Utilizator bogdan88Bogdan Popescu bogdan88 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.