Определить максимальное и минимальное значение из трех различных вещественных чисел. работа на поскале

Var A, B, C, MAX: real;
begin
MAX:=a;
if b > max then max:=b;
if C > max then max:=c;
end;

Примерно так