Ввести массивы z [0..3] и a [0..3] . найти сумму дробных положительных элементов введенных массивов.

Program tasc1;
Var i,sum : integer;
a: array [1..10] of integer;
begin
writeln ('input array ');
for i:=1 to 10 do
begin
write ('a(',i,')=');
readln (a[ i ]);
end;
sum:=0;
for i:=1 to 10 do sum:=sum+a[ i ];
writeln ('sum=',sum);
end.