Найти среднее арифметическое первых 50-ти нечётных натуральных чисел- Pascal(Паскаль)

var
 i:integer;
 s:real;
begin
 s:=0;
 for i := 1 to 50 do 
  s := s + (2*i +1);
 s := s / 50;
 writeln(s);
end.