Помогите написать программу ** Паскале.Напишите программу, которая в последовательности...

Question

Помогите написать программу на Паскале.
Напишите программу, которая в последовательности целых чисел

вычисляет сумму всех чисел, которые кратны 6 или 11. Программа получает на вход

целые числа, количество введённых чисел неизвестно, последовательность чисел

заканчивается числом 0 (0 – признак окончания ввода, не входит

в последовательность).


Количество чисел не превышает 1000. Введённые числа по

модулю не превышают 30 000.


Программа должна вывести одно число: сумму всех чисел,

которые кратны 6 или 11.

Answer 1

var
  x,s: integer;
begin
  readln(x);
  s:= x;
  while x<>0 do begin
    readln(x);
    s:= s+x
  end;
  writeln(s)
end.