Вычислить сумму первых N членов ряда

var x,y: real;
 
begin
 writeln('Число 1: ');
 readln(x);
 writeln('Число 2: ');
 readln(y);
 if x < y then
  begin
    x := x/y;
    y := x-y
  end
 else
  begin
    y := x/y;
    x := x-y
  end;
 
  writeln;
  writeln(x);
  writeln(y);
  readln
 
end.

var
  i, n: integer;
  sum: real;
 
begin
  readln(n);
  sum := 0;
  for i := 1 to n do 
  begin
    sum := sum + (2 * i - 1);
  end;
  writeln(sum);
end.

const maxn = 1000;
 
type TMas = array[1..maxn] of real;
 
var mas: TMas; i,j : integer; max, a: real;
 
begin
  i := 1;
  a := 1;
  writeln('Введите элементы массива: ');
  while a <> 0 do
  begin
   readln(a);
   mas[i] := a;
   inc(i)
  end;
 max := -maxint;
 for j := 1 to i do
  if mas[j] > max then max := mas[j];
 writeln('Максимальный элемент - ', max:3:2);
 readln
 
end.

uses crt;
var x,i,j:byte;
begin
clrscr;
x:=1;
for i:=1 to 24 do
for j:=x to x+23 do
if(j=x)or(j=x+23)or((i<=12)and((j=i+x-1)or(j=x+24-i))) then
 begin
  gotoXY(j,i);
  write('*');
 end;
x:=28;
for i:=1 to 24 do
for j:=x to x+23 do
if(j=x)or(j=x+23)or(j=x+24-i) then
 begin
  gotoXY(j,i);
  write('*');
 end;
x:=55;
for i:=1 to 24 do
for j:=x to x+23 do
if(j=x)or(i=1)or(i=12)or((i<=12)and(j=x+23)) then
 begin
  gotoXY(j,i);
  write('*');
 end;
readln
end.