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

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