написать программу которая вычисляет сумму первых n членов ряда 1,3,5.. (while,repeat,for ) на паскале

s, a, i: integer;

s:=0;

write('a = ');

for i := 1 to a do

s:=s+(2*i-1);

end;

writeln(s);

end.