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

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

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.

По логике так: надо расположить по возрастанию, то есть первое  меньше  второго, второе  меньше   третьего.  поэтому под цифрами 1 и 2 надо поставить "больше": если цифры  поменяются местами, то станет "меньше", что нам и надо. порядок убывания нам не нужен - нужно возрастание, поэтому в 3 пункте "не расположены". ну а "к пункту" можно только "вернутся")1)начало.2) сравни первое и второе числа; если первое больше   второго , то поменяй их местами.3)сравни второе и третье  числа; если второе больше   третьего, то поменяй их местами.   4)если теперь три числа не  расположены  в порядке убывания, то исполни пункт 5) этого алгоритма; иначе вернись   к пункту    2).5)конец.

Type mas=array[1..1000] of integer; var     a: mas;     i,h,x,k: integer; begin     readln(h,x);     k: =0;     for i: =x to h+x do       begin           read(i);           k: =k+1;           a[k]: =i;       end;     for i: =1 to k do       write(a[i], ' '); end. на всякий случай написала вывод массива