Прочитать с экрана 8 целых чисел и из большего вычесть 5. результат напечатать. (замечание: использовать в программе не более 3 переменных) (на паскале)

Var a,b,c:integer;
readln(a);
for c:=1 to 7 do
begin
readln(b);
if(b>a)
a:=b;
end;
b:=a-5;
writeln(b);
end.