Процедуры и функции: выполнить над вещественными числами а и в одну из арифметических операций - Free Pascal

Формулировка задачи:

Описать функцию calc(a,b, op) вещественного типа , выполняют уж над не нулевыми вещественными числами а и в одну из арифметических операций и возвращающую ее результат. Вид операции определяется целым параметром ор:1-вычитание , 2- умножение, 3-деление, остальные значения-сложение.. Помогите пожалуйста (

Решение задачи: «Процедуры и функции: выполнить над вещественными числами а и в одну из арифметических операций»

Листинг программы

function calc(a, b: real; op: integer): real;
begin
  case op of
    1: calc := a - b;
    2: calc := a * b;
    3: calc := a / b
  else
    calc := a + b;
  end;
end;

Объяснение кода листинга программы

В данном коде написана функция с именем calc, которая принимает три аргумента: a, b и op. Первые два аргумента являются вещественными числами, а третий аргумент является целым числом. Внутри функции происходит проверка значения аргумента op. Если op равно 1, то выполняется операция вычитания, если op равно 2, то выполняется операция умножения, если op равно 3, то выполняется операция деления. Если op не равно ни одному из этих значений, то выполняется операция сложения. В результате выполнения функции calc, она возвращает вещественное число, которое является результатом выполнения арифметической операции над аргументами a и b. Вот список действий, которые происходят в коде:

Функция calc принимает три аргумента: a, b и op.
Происходит проверка значения аргумента op.
Если op равно 1, то выполняется операция вычитания.
Если op равно 2, то выполняется операция умножения.
Если op равно 3, то выполняется операция деления.
Если op не равно ни одному из этих значений, то выполняется операция сложения.
Функция возвращает результат выполнения арифметической операции.