Программа получает на вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается нулем.(a=0 признак окончания ввода , ноль не входит в последовательность). Программа должна вывести количество и сумму всех чисел последовательности.

program mor;var n,s: integer;beginn:= 1;s:= 5;while s<= 365 dobegins:=s+37;n:=n*2;end;writeln (n)end.