Программа получает на вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается

Program klhj;vara, k, s: integer;begina:=1;while a<>0 do begin write(\'Введите число: \'); readln(a); if a<>0 then begin k:=k+1; s:=s+a end; end;writeln(\'Количество введенных чилел: \',k);writeln(\'Сумма всех введенных чисел равна: \',s);readln;end.Используем оператор цикла с предусловием, условие продолжения цикла - а<>0. Как только переменная а становится нулевой ( с клавиатуры вводится 0), цикл сразу прекращает свою работу. Чтобы избежать получения нулевого количества кругов цикла, задается начальное значении а=1. Можно взять любое значение кроме 0.