Program enot;
Var i,k,s:integer;
Begin
s:=0;
write('Ââeäèòå k: ');
read(k);
for i:=100 to 999 do
if i mod k =0 then s:=s+i;
write('Ñóììà: ');
write(s);
end.