Составьте программу, находящую сумму первых 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.