Написать программу в pascal. найти сумму 10 нечетных чисел.

Program fofgogjoj;
Var a: array [1..100] of integer;   
i, n, s: integer;
Begin 
s:=0;
n:=19; 
for i:=1 to n do   
begin   
a[i]:=i;           
if i mod 2=1 then s:=s+a[i];   
end; 
Writeln ('Сумма 10ти нечетных чисел равна: ',s);
End.