Программа на Pascal для нахождения среднего арифметического из 10 чисел:

program AverageCalculator;
var
sum, num, i: integer;
average: real;
begin
sum := 0;
for i := 1 to 10 do
begin
write('Введите число ', i, ': ');
readln(num);
sum := sum + num;
end;
average := sum / 10;
writeln('Среднее арифметическое: ', average:0:2);
end.

Данная программа сначала запрашивает у пользователя ввод 10 чисел, затем считает их сумму и находит среднее арифметическое значение.