Напишите программу которая находит среднее арифметическое всех чисел записанных в файле в столбик с++

Дан во вложении.

Program is_ev_2d; var n: integer; begin   write('введите число: ');   readln(n);   if (n mod 2 = 0) and (n > 9) and (n < 100) then     writeln(n, ' чётное двузначное')   else      writeln(n, ' не чётное двузначное') end.

read(n);

if (n> 99) and (n< 1000) then writeln('yes');