написать программу : из трех данных чисел ( 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.