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

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