Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое трёхзначных чисел или сообщает, что таких чисел нет (выводит no). программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 undefined признак окончания ввода, не входит в последовательность). количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести среднее арифметическое трёхзначных чисел или вывести «no», если таких чисел нет. расписать программу в паскаль abc
var
sum, n, count: longint;
begin
repeat
readln (n);
if n in [100..999] then
begin
inc (sum, n);
inc (count);
end;
until n=0;
if count = 0 then write ('No') else write (sum/count);
end.