Наверно тебя уже отчислили, но всё же:
Если нужно поочерёдное сложение:
Код:
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;
Если надо сложить ещё и каждую из сумм, то добавь ещё одну переменную в цикл.