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

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