Cod sursa(job #470940)

Utilizator robertcrobert ciobotaru robertc Data 16 iulie 2010 11:15:35
Problema Next Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
{infoarena-next}
program next;
var m,n,d,r:longint;
f1,f2:text;
begin
assign(f1,'next.in');reset(f1);
assign(f2,'next.out'); rewrite(f2);
m:=maxlongint;
n:=maxlongint;
d:=maxlongint;
r:=maxlongint;
readln(f1,n);
readln(f1,d);
if (d>=2) and (n>=1) then begin
r:=n mod d;
m:=(d-r)+n;
write(f2,m);
             end;
close(f1);
close(f2);
end.