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

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

Program vasha_zadacha_1; var a,b,c: integer ;   begin  c: =0;   writeln('введите промежуток от');   readln(a);   writeln('до');   readln(b);   if a> b then    for b: =b to a do begin  if (b mod 5< > 0) then c: =c+1;     end;   for a: =a to b do begin    if (a mod 5< > 0) then c: =c+1;     end;   writeln('колличество чисел не кратных пяти в этом диапазоне ', c);   end.