Turbo Pascal - Составить программу нахождения произведения двух наибольших из трех введенных с клавиатуры чисел.(Условный оператор

[lady.unika]

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

[spein]

a[1], a[2], a[3]

max:=1;
for i:=2 to 3 do
if a[i] > max then begin max:=a[i]; key:=i; end;
max2:=max;
for i:=1 to 3 do
if (i<>key) and (a[i]>max2) then max2:=a[i];
writeln(max  * max2);

[Hacker19_90]

Сообщение от spein

a[1], a[2], a[3]

max:=1;
for i:=2 to 3 do
if a[i] > max {БРЕД}then begin max:=a[i]; key:=i; end;
max2:=max;
for i:=1 to 3 do
if (i<>key) and (a[i]>max2) then max2:=a[i];
writeln(max  * max2);

не верно!
Делаем так хотя бы

min := 1;
for i := 2 to 3 do
  if a[min] > a[i] then min := i;
pr := 1;
for i := 1 to 3 do
  if i <> min then pr := pr*a[i];
WriteLn (pr);

[Poma][a]

begin
           ReadLn (a, b, c);

           if a > b then begin
                     t := a;
                     a := b;
                     b := t;
           end;
           
           if a > c then begin
                   t := a;
                   a := c;
                   c := t;
           end;
       WriteLn (b*c)
end.

без массивов и циклов....
вот еще
Уважаемая, ОЧЕНЬ бы хотелось увидеть :
1) Приветствие
2) Просьбу о помощи, а не приказ
3) Хоть строку Вашего кода