Конечно, вот пример программы на языке Pascal:

program AverageCalculator;
var
num1, num2, num3, num4: Integer;
average: Real;
begin
write('Введите первое число: ');
readln(num1);
write('Введите второе число: ');
readln(num2);
write('Введите третье число: ');
readln(num3);
write('Введите четвертое число: ');
readln(num4);
average := (num1 + num2 + num3 + num4) / 4;
writeln('Среднее арифметическое чисел ', num1, ', ', num2, ', ', num3, ' и ', num4, ' равно ', average:0:2);
end.

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