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

Question

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

Answer 1

var a,b,c,max:real;

begin

readln(a,b,c);

max:=a;

if max if max max:=max-5;

write(max);

end.