СРОЧНО!дз по информатике. Вычислить средне арифметическое из трёх водимых с клавиатуры целых чисел.

Приведенный ниже код на PascalABC вычисляет среднее арифметическое из трех введенных с клавиатуры целых чисел:

program Average;
var
  num1, num2, num3: integer;
  average: real;
begin
  writeln('Введите первое число:');
  readln(num1);

  writeln('Введите второе число:');
  readln(num2);

  writeln('Введите третье число:');
  readln(num3);

  average := (num1 + num2 + num3) / 3;

  writeln('Среднее арифметическое:', average:0:2);
end.

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