ПОМОГИТЕ!! начал изучать паскаль и попалась задача, не получается решить, условие ниже.

Question

ПОМОГИТЕ!! начал изучать паскаль и попалась задача, не получается решить, условие ниже.

DL_time Ученик (192), закрыт 1 год назад

УСЛОВИЕ: Напишите программу которая вводит с клавиатуры числа до тех пор, пока не будет введено число 0. В конце программы на экран выводится сумма и произведение введенных чисел.

var a,b,c,d,e: integer;
begin
writeLn ('введите число');
readLn (a);
b:=1;

while (a>0) or (a<0) do begin
writeln ('введите число');
readln (a);

while (a>0) or (a<0) do begin
c:=a;
d:=c * b;
if a=0 then

end;

writeln ('верно');

e:=0;

end;
writeln (d);

end.

Answer 1

uses crt;
var
sum,pr,c:integer;
begin
clrscr;
writeln('Введите последовательность');
sum:=0; pr:=1;
c:=1;
while c<>0 do begin
readln(c);
if c<>0 then begin
sum:=sum+c;
pr:=pr*c; end;
end;
writeln(sum:4,pr:6);
end.