Информатика информатичка загрызёт

1: Ну-с,  три раза циклом идем начиная с 1 до 3 и получается следующее:
    Идем первый раз: S:=1+1*1 в результате S = 2;
    Идем второй раз: S:=2+2*2 в результате S = 6;
    Идем третий раз: S:=6+3*3 в результате S = 15;
    ответ: S = 15;
2: В результате выполнения программы будет выведены 6 чисел которые получились в результате вычисления s:=s+2*j;
Т.е. как и в предыдущем задание (1) идем циклом с  10 до 15 и считаем, а после сразу выводим.
    S:= 0 + 2*10; S=20;
    S:= 20 + 2*11; S=42;
    S:= 42 + 2*12; S=66;
    S:= 66+2*13; S=92;
    S:=92+2*14; S= 120;
    S:=120 + 2*15; S=150;
3: крч все тоже самое цикл и т.д.
ответ: 5 20 60 120 120

Var i,x,y,answer,input,k:Integer;

begin
Writeln('*TEST*');
randomize;
answer:=10;
k:=0;
for i:=1 to answer do
 begin
 x:=Random(9)+1;
 y:=Random(9)+1;
 Write(x,' * ',y,' = '); 
 Readln(input);
 if input=x*y then
  begin
  k:=k+1; 
  writeln('RIGHT!');
  end
 else writeln('WRONG! ',x,' * ',y,' = ',x*y);
end;

Writeln('Correct answers - ',k);
case answer of
10:Writeln('Excellent!');
9,8:Writeln('Good!');
6,7:Writeln('OK!');
0..5:Writeln('Bad!');
end;
end.

Пример:
*TEST*
2 * 4 = 8
RIGHT!
7 * 9 = 7
WRONG! 7 * 9 = 63
4 * 4 = 16
RIGHT!
1 * 2 = 2
RIGHT!
4 * 1 = 4
RIGHT!
9 * 7 = 63
RIGHT!
9 * 8 = 72
RIGHT!
3 * 1 = 3
RIGHT!
9 * 4 = 36
RIGHT!
6 * 4 = 24
RIGHT!
Correct answers - 9
Excellent!