Составить программу для паскальабс.нет.

КОЛИЧЕСТВО ЧИСЕЛ НЕ КРАТНЫХ ПЯТИ В УКАЗАННОМ ДИАПАЗОНЕ

var i, a, b, count, crat:integer;beginreadln(a, b);for i:=a to b dobegincrat:=i mod 5;if crat <> 0 thenbegincount:=count+1end;end;writeln('Количество не кратных = ', count);end.