Паскаль 1. нпк вводит 2 числа (a 2. нпк вводит числа до тех пор пока не будет введено число 0, после этого выводит сумму введенных числе

Program sum;
var
a,b,s: integer;
begin
s := 0;
loop do
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
s := s + (a + b);
if (a = 0) or (b = 0) then
begin
break;
writeln('s = ', s);
end;
end;
end.