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

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.