Программа на Pascal:

program AverageCalculator;
var
num1, num2, num3: integer;
average: real;
begin
writeln('Введите три целых числа до ста:');
write('Первое число: ');
readln(num1);
write('Второе число: ');
readln(num2);
write('Третье число: ');
readln(num3);
average := (num1 + num2 + num3) / 3;
writeln('Среднее арифметическое введенных чисел: ', format('%0.2f', [average]));
end.

Пользователь может вводить три целых числа до 100, а затем программа вычислит среднее арифметическое этих чисел и выведет результат с двумя знаками после запятой.