Задание 1:

• var N,S: integer;
• begin
• readln(N);
• S := sqr(N) * sqr(N + 1) div 4;
• writeln(S);
• end.

Задание 2:

• var N, S: integer;
• begin
• readlN(N);
• S := sqr(N) * (2 * sqr(N) - 1);
• writeln(S);
• end.

Альтернатива:

!Возможно не совсем по школьной программе:

• begin
• var N :=ReadInteger('Введите N:');
• Println('Сумма первой последовательности:', sqr(N)*sqr(N+1)/4));

• Println('Сумма второй последовательности:', (sqr(N)*(2*sqr(N)-1)));
• end.