решить на языке програмирования PASCAL ABC.
Напишите программу, которая запрашивает у пользователя числа и находит их сумму. Признаком окончания ввода является число 10.
Вход
5 6 2 10 8
Выход
13 (это сумма чисел 5, 6, 2. 10 – это конец цикла).
Заранее благодарю
var
ch,sum:LongInt;
begin
ReadLn(ch);
sum:=0;
while (ch>10) or (ch<10) do
begin
inc(sum, ch);
ReadLn(ch);
end ;
WriteLn(sum);
end.