Написать программу : из трех данных чисел ( a , d и с) найьи максимальное и умньшить его на 5

Var  a, b, c: integer;

function max(a, b : integer) : integer;
begin 
if a>b then max:=a 
else max:=b;
end;

begin 
readln(a, b, c); 
writeln(max(max(a, b),c)-5);
end.