Cod sursa(job #54718)

Utilizator floreaflorea cristian florea Data 25 aprilie 2007 16:41:57
Problema Next Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.25 kb
Raporteaza aceasta sursa 
var n,m,d:int64;
    fi,fo:text;
begin
     assign(fi,'next.in'); reset(fi);
     assign(fo,'next.out'); rewrite(fo);
     readln(fi,n,d);
     m:=trunc(n/d);
     m:=m+1;
     m:=m*d;
     writeln(fo,m);
     close(fi);
     close(fo);
end.