Найти сумму всех двузначных чисел, кратных k. Прошу вас, решиитее!

program zadacha; uses crt; var b,k,i: integer; beginwriteln ('vvedi k'); readln (k); for i: =10 to 99 do beginIF i mod k=0 then inc (b); end; writeln ('kol-vo dvuxznachnix chisel kraynix k='); write (b); end;