Question

Ввести 7 чисел и найти их сумму используя только 3 переменных
Помогите

Answer 1

var
   a,b,c:integer;
begin
  for a:=1 to 7 do
  begin
    readln(b);
    c:=c+b;
  end;
  writeln('Сумма ',c);
end.