Информатика 9 класс. турбо паскаль.дано три целых числа.найти произведение максимального на минимальное. нужно составить формулу. : (

Var a,b,c,max,min:integer;
begin
read(a,b,c);
if a=>b then max:=a
   else max:=b;
if c>max then max:=c;
if a<=b then min:=a
   else min:=b;
if c<min then min:=c;
writeln ('Произведение максимального на минимальное = ',max*min);
end.