Составить программу, которая в последовательности целых чисел находит сумму чисел кратных 7 в диапозоне от 6 до 80. Программа

var     a, sum : integer;             // объявляем переменные целочисленного типа.begin     a := 1;                         // нужно для входа в цикл while.     writeln (\'введите последовательность чисел, окончание ввода - число 0:\');        while a <> 0 do         // начало цикла.          begin              readln (a);                                             // считываем число, введенное с клавиатуры.              if ((a >= 6) and (a <= 80)) then            // если число в диапазоне от 6 до 80.                  begin                      if (a mod 7) = 0 then sum := sum + a;          // считаем сумму чисел кратных 7.                  end;          end;   write (\'Сумма чисел кратных 7 равна: \', sum);         //вывод ответа на экран.end.