program findDifference;
var
arr: array[1..5] of integer;
i, min, max, diff: integer;
begin
// Ввод элементов массива
writeln('Введите 5 чисел:');
for i := 1 to 5 do
begin
write('Элемент ', i, ': ');
readln(arr[i]);
end;

// Нахождение минимального и максимального элементов
min := arr[1];
max := arr[1];
for i := 2 to 5 do
begin
if arr[i] < min then
min := arr[i];
if arr[i] > max then
max := arr[i];
end;

// Нахождение разности
diff := max - min;

// Вывод результата
writeln('Разность между наибольшим и наименьшим элементом: ', diff);
end.