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