Найти произведение 2х максимальных чисел из 3х

Var a,b,c,d: integer;
begin
  write('числа a,b,c через пробел: '); 
  readln(a,b,c);
  if b>a then 
  begin
    d:=a;
    a:=b;
    b:=d;
  end;
  write('произведение: ');
  if b>c then write(a*b)
  else writeln(a*c);
end.


числа a,b,c через пробел: 11 4 15
произведение: 165