найти наибольшее из трёх чисел и уменьшить его на 5( в Паскаль)

var a,b,c,max:real;

begin

readln(a,b,c);

max:=a;

if max<b then max:=b;

if max<c then max:=c;

max:=max-5;

write(max);

end.