Составить программу нахождения суммы нечётных чисел, находящихся в промежутке от 13 до 45. Желательно блок схема))

Program enot;Var a: array[1..33] of integer;i,k,s:integer;begins:=0;k:=12;for i:= 1 to 33 do begina[i]:= k+1;k:=k+1;end;for i:= 1 to 33 do if a[i] mod 2 <>0 then s:=s+1;write(s);end.