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

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

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.

64000 бит/с*16 c=1024000 бита/8=128000 байт=125 килобайт