Составить программку для паскальабс.нет. КОЛИЧЕСТВО ЧИСЕЛ НЕ КРАТНЫХ 5 В Обозначенном

var
   x, y, i, j : integer;                                    // объявляем переменные целочисленного типа.
begin
     writeln( Введите начало спектра:); // выводим строчку на экран.
     readln(x);                                           // считываем значение, введенное с клавиатуры.        
     writeln( Введите конец спектра:); // выводим строку на экран.
     readln(y);                                          // считываем значение, введенное с клавиатуры.   
     for i:= x to y do                                 // начало цикла.
        begin
            if (i mod 5 gt; 0 ) then                  // проверяем кратно ли число из спектра 5.
            j:= j + 1;                                  //  если не кратно 5, увеличиваем счетчик.
        end;
writeln(В спектре от ,x , до ,y , количество чисел не кратных 5 одинаково: , j); // вывод строки.
end.