Составить две программы на языке Паскаля с помощью операторов цикла До и Пока,которые будут вводить целые числа(до тех

program zz1;var x, y, k:integer; // задаем переменные целого типаbeginread(x);while x <> 0 do // организуем цикл, в котором будем вводить числа последовательности, пока не введем нольbegin y:=y + x; // считаем сумму k:=k + 1; // считаем количество read(x);end;write(\' Сумма чисел последовательности = \', y, \' их количество = \', k); // выводим ответ end.

program zz1;var x, y, k:integer; // задаем переменные целого типаbeginrepeat // организуем цикл, в котором будем вводить числа последовательности, пока не введем нольread(x); y:=y + x; // считаем сумму k:=k + 1; // считаем количество until x=0;write(\' Сумма чисел последовательности = \', y, \' их количество = \', k - 1); // выводим ответ end.