end;
writeln;
writeln('rrednne arifm elementov chetnih stolbcov ravno:',s:3:1);
readln;
END.
Результат работы программы представлен в Приложении A.