Решить задачу на Паскале: "С клавиатуры вводятся три целых, неравных числа в интервале от 1 до 100. Требуется вычислить и вывести на экран произведение двух наибольших из них. Например, вводим: 2, 9, 3, на экране выводится: 27".

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.