Помогите написать программу на Паскале.Напишите программу, которая в последовательности целых чисел вычисляет сумму всех чисел, которые кратны 6 или 11. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: сумму всех чисел, которые кратны 6 или 11.
var x,s: integer; begin readln(x); s:= x; while x<>0 do begin readln(x); s:= s+x end; writeln(s) end.
