В файле input.txt записано число N (1<=N<=10000) равное количеству элементов целочисленной последовательности, а затем сами элементы последовательности.

Напишите программу, которая вычисляет среднеарифметическое чисел, содержащих только цифры большие 3, а если таких чисел в заданной последовательности нет, то вывести NO.

Результаты работы программы записать в файл output.txt

a - уровень продаж, а затем ЗП первого менеджера
b - второго менеджера
c - третьего
Уровень продаж у всех разный.
Язык программирования: Паскаль

var
a, b, c: integer;
begin
readln (a);
if a < 500 then
a := 0.03 * a + 200;
if (a > 500) and (a < 1000) then
a := 0.05 * a + 200;
if a > 1000 then
a := 0.08 * a + 200;
readln (b);
if b < 500 then
b := 0.03 * b + 200;
if (b > 500) and (b < 1000) then
b := 0.05 * b + 200;
if b > 1000 then
b := 0.08 * b + 200;
readln (c); 
if c < 500 then
c := 0.03 * c + 200;
if (c > 500) and (c < 1000) then
c := 0.05 * c + 200;
if c > 1000 then
c := 0.08 * c + 200; 
if (a > b) and (a > c) then
a := a +200;
else
if b > c then
b := b + 200;
else
c := c + 200;
wreteln ('ЗП первого менеджера: ', a, '$');
wreteln ('ЗП второго менеджера:  ', b, '$'); 
wreteln ('ЗП третьего менеджера:  ', c, '$')
end.

Program Djonny1981;
uses crt;
const
  m=5;
var
  a: array[1..m,1..m] of integer;
  i, j: integer;
  sum: integer;
begin
  randomize;
  sum:=0;
  for i:=1 to m do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random(101)-50;
          write(a[i,j]:5);
        end;
        writeln();
    end;
  for i:=1 to m do
    for j:=1 to m do
      if j mod 2 = 0 then {вот здесь проверка, чётный ли столбец}
         sum := sum + a[i,j];
  writeln('Сумма элементов чётных столбцов равна ',sum);
  if sum>0 then
      for i:=1 to m do
        for j:=1 to m do
          if i mod 2 = 1 then
            a[i,j]:=a[i,j]*a[i,j]
    else
      for i:=1 to m do
        a[m-i+1,i]:=a[m-i+1,i]+2;
  for i:=1 to m do
    begin
      for j:=1 to m do
        write(a[i,j]:5);
      writeln();
    end;
end.