Var a,s,p:integer; begin s:=0; p:=1; write('Введите число: '); readln(a); while a<>0 do begin s:=s+a; p:=p*a; write('Введите число: '); readln(a) end; writeln('Сумма чисел в последовательности: ',s); writeln('Произведение чисел в последовательности: ',p) end.
begin
s:=0;
p:=1;
write('Введите число: ');
readln(a);
while a<>0 do
begin
s:=s+a;
p:=p*a;
write('Введите число: ');
readln(a)
end;
writeln('Сумма чисел в последовательности: ',s);
writeln('Произведение чисел в последовательности: ',p)
end.