Дана последовательность чисел оканчивающихся на 0 найти сумму и произведение этих чисел (Нужно написать программу в Паскале

Var a, s, p:integer;

begin

s:=0;

p:=1;

write ('Введите число: ') ;

readln (a) ;

while a0 do

begin

s:=s+a;

p:=p*a;

write ('Введите число: ') ;

readln (a)

end;

writeln ('Сумма чисел в последовательности: ', s) ;

writeln ('Произведение чисел в последовательности: ', p)

end.