Найти сумму всех трехзначных чисел кратных к

i,k,s:integer;

read(k);

s=0

for i=100 to 999 do begin

if i mod k = 0 then

s=s+i;

end;

write(s);

end.

var i,K,S:real;

begin

write('vvedite K = ');

readln(K);

S=0

for i=100 to 999 do

begin

if i mod K = 0 then

S=S+i;

end;

write('S = ',S);

readln;

end.