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

Program klhj;
var
a, k, s: integer;
begin
a:=1;
while alt;gt;0 do
begin
write(Введите число: );
readln(a);
if alt;gt;0 then
begin
k:=k+1;
s:=s+a
end;
end;
writeln(Количество введенных чилел: ,k);
writeln(Сумма всех введенных чисел одинакова: ,s);
readln;
end.

Используем оператор цикла с предусловием, условие продолжения цикла - аlt;gt;0. Как только переменная а становится нулевой ( с клавиатуры вводится 0), цикл сходу заканчивает свою работу. Чтоб избежать получения нулевого количества кругов цикла, задается изначальное значении а=1. Можно брать хоть какое значение не считая 0.