Вычислить n-й элемент арифметической профессии a1 = 1, а2=3, а3=5, а4=7, а5=9, ... . (программа Паскаль)

vаг N,I:   0. .МахInt;
А:   Rеаl;
Begin
Write (‘N=’);
Readln(N);
А:=1;
For I:=2  То N Do
А:=А+2;
Writeln (‘A(‘,N:1,’)=’,A:6:0);
End.