Написать в паскале. задан массив значений аргумента х=(1.2; 1.8; -4; -1.5; -0.6; 0.2; 0.5; 14; 26; -8.4). определить количество четных чисел в массиве х и их среднее арифметическое значение . х-вводим с клавиатуры.

uses Crt;
const n=10;
Type Mas=array [1..n] of real;
var  X: Mas;
     i, Col: integer;
     Sum, Sred: real;
begin
ClrScr;
for i:=1 to n do
   begin
      Write (' X[',i,'] ='); ReadLn(X[i]);
      if  frac (X[i])=0 and (X[i]  mod 2 =0)  then
      begin
            Col:=Col+1;
            Sum:=Sum+X[i];
      end;
    end;
    WriteLn;
    Sred:=Sum/Col;
   WriteLn (' Количество четных = ', Col);
   Writeln (' Их среднее число = ', Sred:6:3);
ReadLn;
end.