Составить программу для паскальабс.нет. КОЛИЧЕСТВО ЧИСЕЛ НЕ КРАТНЫХ ПЯТИ В УКАЗАННОМ ДИАПАЗОНЕ

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