Cod sursa(job #357512)
| Utilizator |  Dimulescu David lehman |
Data | 19 octombrie 2009 17:21:05 |
|---|---|---|---|
| Problema | Next | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.24 kb |
var n,d,m,x:longint;
begin
assign(input,'next.in');reset(input);
assign(output,'next.out');rewrite(output);
read(n,d );
if n mod d = 0 then write (n)
else begin
x:=1;
while x * d <n do
inc(x);
write(x*d);
end;
end.