program FindSumMinMax;

var
numbers: array[1..10] of Integer;
i, max, min, sum: Integer;

begin
max := -1000;
min := 1000;
sum := 0;

writeln('Введите 10 целых чисел:');
for i := 1 to 10 do
begin
write('Число ', i, ': ');
readln(numbers[i]);

if numbers[i] > max then
max := numbers[i];
if numbers[i] < min then
min := numbers[i];

end;

sum := max + min;

writeln('Максимальное число: ', max);
writeln('Минимальное число: ', min);
writeln('Сумма максимального и минимального числа: ', sum);

end.