помогите друг попросил решить тупую школьную задачку а я как лох 2 час сижу немогу зделать....помогите не пойму в чем ошибка

задача состоит в том что есть масив в котором нужно найти суму елементов <5 и которые при этом делятся на 4 без остачи...вроди все написало а выкидывает ошибку operand type do not match


program 4334;
var C:array [1..20] of real;
g,i:integer;L:real;
begin
L:=0;
g:=0;
for i:=1 to 20 do
begin
Writeln ('element ',i,'=');
readln (C[i]);
end;
for i:=1 to 20 do
if C[i]<5 and (C[i])mod(4)=0 then
begin
L:=L+C[i];
g:=g+1;
end;
writeln ('suma=',L);
writeln ('kilkist=',g);
end.