Составьте программу нахождения произведения двух наибольших из трех введенных с клавиатуры чисел

ответ в в Паскаль.

var a,b,c,d:integer;   // задание переменных типа Действительные числа

begin. // начало программы

readln(a,b,c);  //запрос у пользователя переменных для ввода

if (a>b) and (b>c) then d:=a*b;    // случай, когда а и б наибольшие

if (a>c) and (c>b) then d:=a*c;   // случай, когда с и б наибольшие

if (c>a) and (b>a) then d:=c*b;  // случай, когда а и с наибольшие

writeln(d);     // вывод на экран резльтата - произведения

end.