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

var x,y,i,min,max1,max2:integer; begin writeln('пожалуйста, введите поочередно 3 числа'); readln(x);readln(y);readln(i); if (x