Написать программу, которая будет считывать значения n, потом вычислять две суммы: суму первых n парных чисел и сумму первых n непарных чисел.
Например, если n=3, то должна быть вычислена сумма первых 3-х парных чисел, 2+4+6=12, и сумма первых трех непарных чисел, 1+3+5=9.
Проверить полученное значение суммы парных чисел можна за формулой n(n+1), а значения суммы непарных чисел — за формулой n*n.

То есть, считать нужно обязательно в цикле?

  s1:= 0;
  s2:= 0;
  for i:=1 to n do begin
    s1:= s1+2*i-1;   // odd
    s2:= s2+2*i;     // even
  end;

Program abc;

var
s1,s2:real;
i,n:integer;

Begin
writeln('n');
readln(n);
s1:= 0;
s2:= 0;
for i:=1 to n do
begin
s1:= s1+2*i-1;
// odd;
s2:= s2+2*i; // even;
end;
end.

Выдает ошибку 57: Ошибка в выражении или ожидается символ ";"... Что делать?

На какой строчке ошибка?

Какой у тебя компилятор? Скорее всего, надо убрать C-like комментарии.