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