Дак нет, ты же сам писал, что ты лох.

Наверно тебя уже отчислили, но всё же:
Если нужно поочерёдное сложение:

program rf_cheats;
uses crt;
var
  i, n, a, s: integer;

begin
  write('Вбей число: ');
  readln(a);
  write('Вбей кол-во сложений: ');
  readln(n);
  s := a;
  for i := 1 to n do
  begin
    write(s, '->');
    s := s + a;
    writeln(s);
  end;
  writeln('--------------');
  writeln('Итог вычислений: ',s);
end.

Если без лишнего, то заменить цикл на это

  for i := 1 to n do s := s + a;

Если надо сложить ещё и каждую из сумм, то добавь ещё одну переменную в цикл.

Сообщение от AmyFloop

Бред... нахуй было вводить переменные ?

uses crt;
var s: integer;
begin
s:=3+6+9+12+15+18+21;
writeln(s);
end.

Вот это самый простой и достаточно правильный способ.
Только оператор program не забудь добавить.

Чуваку просто нужно грамотность показать, что он хоть в глаза видел Pascal. А тут ему начинают циклы, прогресии и т.д. Зачем прогу то усложнять? Вы бы ему ещё из файла предложили эти переменные (для суммы) читать.