var a,b,c,res: shortint;
begin
write('Введите a,b,c: ');
readln(a,b,c);
if (c<a) and (c<b) then res:=a*b
else if (b<a) and (b<c) then res:=a*c
else if (a<b) and (a<c) then res:=b*c;
write('Произведение двух наибольших чисел = ',res);
end.
var a,b,c,res: shortint;
begin
write('Введите a,b,c: ');
readln(a,b,c);
if (c<a) and (c<b) then res:=a*b
else if (b<a) and (b<c) then res:=a*c
else if (a<b) and (a<c) then res:=b*c;
write('Произведение двух наибольших чисел = ',res);
end.