Cod sursa(job #40993)

Utilizator TudorutzuMusoiu Tudor Tudorutzu Data 27 martie 2007 21:32:27
Problema Next Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.25 kb
var n,d,m:longint;
    f,g:text;
begin
     assign(f,'next.in'); reset(f);
     assign(g,'next.out'); rewrite(g);
     readln(f,n);
     read(f,d);
     if n mod d = 0 then m:=n
     else m:=n+(d-n mod d);
     write(g,m);
     close(g);
end.