найти произведение 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