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

program sum;vara,b,s: integer;begins := 0;loop dobeginwrite('a = ');readln(a);write('b = ');readln(b);s := s + (a + b);if (a = 0) or (b = 0) then beginbreak;writeln('s = ', s);end;end;end.