(Высчитывает сумму нечетных элементров массива) 

program chisla;
uses crt;
var a: array [1..10] of integer;    {сколько элементов вмассиве}
i,sum: integer;
begin
clrscr;
sum:=0;
for i:=1 to 10 do
begin
write('a[',i,']= ');
readln(a[i]);
if a[i] mod 20 then sum:= sum+a[i];
end;
write('sum= ',sum);
readln;
end.