Cod sursa(job #218962)
| Utilizator |  Amza Bianca Ioana squeezy |
Data | 4 noiembrie 2008 14:25:36 |
|---|---|---|---|
| Problema | Next | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.27 kb |
var
f,g:text;
ok: boolean;
n,d:longint;
begin
assign(f,'next.in');
reset(f);
readln(f,n);
readln(f,d);
close(f);
assign(g,'next.out');
rewrite(g);
ok:=false;
while ok=false do
if n mod d=0 then
ok:=true
else inc(n);
write(g,n);
close(g)
end.