Cod sursa(job #37775)
| Utilizator |  Sandu Cristian Andrei sanducristi2222 |
Data | 25 martie 2007 12:30:02 |
|---|---|---|---|
| Problema | Next | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | preONI 2007, Runda 4, Clasa a 9-a si gimnaziu | Marime | 0.17 kb |
program xxx;
var i,N,M,D:longint;
begin
readln(N);
readln(D);
for i:=N to maxlongint do
begin
if i mod D=0 then
M:=i;
if M<>0 then break;
end;
write(M);
readln;
end.