Найти сумму всех...

Найти сумму всех двузначных чисел, кратных k.Прошу вас, решииииитееее!!!! только в Pascal обязательно, с блок-схемой, если можете хотя бына листке решите, сфоткайте и пришлите

 

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