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

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

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

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

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

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

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

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

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

end.