Задача на mod Опции

[kurt]

Найти и вывести на экран кол-во двузначных чисел, у которых при умножении на 3 сумма цифр кратна 5.

[Артемий]

Можно пробовать так..(просто уже примерно это решал )

var
i,o,k,m: integer;
s: string;
begin
for i:=10 to 99 do begin
 k:=i*3;
 str(k,s);
 m:=k mod 10;
   if length(s)=3 then begin
   m:=m+(k div 100)+((k mod 100)div 10); end else
   m:=m+(k div 10);
 if (m mod 5)=0 then writeln(i);
end;