program FindSumOfThreeLargestNumbers;
const
SIZE = 15;
var
numbers: array[1..SIZE] of Integer;
i, j, temp, sum: Integer;
begin
// вводим 15 чисел с клавиатуры
writeln('Введите 15 целых чисел:');
for i := 1 to SIZE do
begin
readln(numbers[i]);
end;
// сортируем массив по убыванию
for i := 1 to SIZE - 1 do
begin
for j := i + 1 to SIZE do
begin
if numbers[i] < numbers[j] then
begin
temp := numbers[i];
numbers[i] := numbers[j];
numbers[j] := temp;
end;
end;
end;
// суммируем три самых больших числа
sum := 0;
for i := 1 to 3 do
begin
sum := sum + numbers[i];
end;
// выводим результат
writeln('Сумма трех самых больших чисел: ', sum);
end.

Пример работы программы:

Введите 15 целых чисел:
10
5
3
8
12
15
20
25
30
35
40
45
50
55
60
Сумма трех самых больших чисел: 165