Cod sursa(job #43569)

Utilizator TudorutzuMusoiu Tudor Tudorutzu Data 30 martie 2007 11:54:15
Problema Next Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.24 kb
Raporteaza aceasta sursa 
var n,d:integer;
    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 write(g,n)
     else write(g,n+(d-n mod d));
     close(g);
end.