Написать программку в Паскале которая поначалу должна обеспечить ввод 5 чисел

//PascalABC.NET v3.3 1633

var arr: array [1..5] of integer;

begin

 for var i:=1 to 5 do

   arr[i]:=readinteger('Введите '+i+' элемент массива: ');

 var sum:=0;

 var number:=0;

 for var i:=1 to 5 do

   if arr[i] mod 2 = 0 then

   begin

     sum += arr[i];

     number += 1;

   end;

 writeln('Количество четных чисел = '+number);

 writeln('Сумма четных чисел = '+sum);

end.