Пожалуйста напишите мне данное задание от Program до End. (Тема "Циклы"- Pascal ABC)...

Question

Пожалуйста напишите мне данное задание от Program до End.

(Тема "Циклы"- Pascal ABC)

Написать программу, которая вычисляет сумму первых в членов ряда: 1,3,5,7...
Количество суммированных членов ряда задаётся во время работы программы.
Ниже приведен примерно рекомендуемый вид экрана во время работы программы.

Вычисление частичной суммы ряда:1,3,5,7...
Введите количество суммированных членов ряда ->1-5
Сумма первых 15 членов ряда равна 330.

Answer 1

Program zhn;
var
  i,n,sum:integer;
begin
  writeln('Вчисление суммы членов последовательности: 1,3,5,7...');
  write('Введите количество членов для сложения:');
  readln(n);
  for i:=1 to n*2 do begin
    if i mod 2 <> 0 then sum:=sum+i; //Проверяем что бы число было нечетным
  end;
  writeln('Сумма ',n,' членов прогресии = ',sum);
end.