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

begin

 var x: integer;

 var s: integer;

 var Count := 0;

 repeat

   if not TryRead(x) then

   begin

     Writeln('This is not the integer number, try again');

     continue

   end;

   s += x;

   Count += 1;

 until x = 0;

 Println('Average =', s / (Count - 1))

end.