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

program prl;uses crt;var i,n,summa:integer;      srednee:real;      a:arra[1..100] of integer;beginwrite('Введите кол-во четных элементов');readln(n);summa:=0;for i:=1 to n do beginwrite('Введите ',i,' элемент:'); readln(A[i]);summa:=summa+A[i];end;srednee:=summa/(n div 2);writeln('Среднее арифметическое',srednee:3:2);//readln;end.