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

var x,y,i,min,max1,max2:integer;beginwriteln('пожалуйста, введите поочередно 3 числа');readln(x);readln(y);readln(i);if (x<y) and (x<i) then begin  min:=x; max1:=y; max2:=i; end;if (i<y) and (i<x) then begin  min:=i; max1:=y; max2:=x; end;if (y<x) and (y<i) then begin min:=y; max1:=x; max2:=i; end;writeln('минимальное число =',min);writeln('произведение 2-х максимальных =',max1*max2);end.Пример работы:пожалуйста, введите поочередно 3 числа641281минимальное число =1произведение 2-х максимальных =8192