Написать код программы для решения следующейзадачи: Дано 5 чисел. Посчитать…

Uses crt; var a: array [1… 5] of integer; x,y,temp,pr: integer; begin writeln ('Введите 5 чисел: '); for x: =1 to 5 do read (a[x]); for y: =1 to 4 do for x: =1 to 4 do if a[x]>a[x+1] then begin temp: =a[x]; a[x]: =a[x+1]; a[x+1]: =temp; end; pr: =a[1]*a[5]; writeln ('Произведение максимального и минимального чисел: ',pr); end.