Question

Информатика 9 класс.
Турбо Паскаль.Дано три целых числа.Найти произведение максимального на минимальное.
Нужно составить формулу.
ПОМОГИТЕ ПОЖАЛУЙСТА :(

Answer 1

Var a,b,c,max,min:integer;
begin
read(a,b,c);
if a=>b then max:=a
   else max:=b;
if c>max then max:=c;
if a<=b then min:=a
   else min:=b;
if c<min then min:=c;
writeln ('Произведение максимального на минимальное = ',max*min);
end.