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

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