На отрезке от a до b отыскать кол-во чисел кратных трём.

program z1; var a,b,k,i:integer; begin k:=0; write('Введите координату а: '); read(a); write('Введите координату b: '); read(b); for i:=a to b do begin if i mod 3=0 then begin writeln(i); k:=k+1; end; end; writeln('Количество чисел кратных трём одинаково ',k); readln; end.

Сории, комментарий в программе плохо копировался