Cod sursa(job #580575)

Utilizator originalalexmarin alexandru originalalex Data 13 aprilie 2011 11:29:47
Problema Next Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.23 kb
Raporteaza aceasta sursa 
program next;
var m,n,d:int64;
f1,f2:text;
begin
assign(f1,'next.in');
reset(f1);
readln(f1,n);
readln(f1,d);
m:=n;
while m mod d >0 do
  inc(m);
assign(f2,'next.out');
rewrite(f2);
write(f2,m);
close(f1);
close(f2);
end.