Функция, возвращающая среднее арифметическое двух аргументов

var
    a, b: real;
 
function average(c,d: real): real;
begin
    average := (c + d) / 2;
end;
 
begin
    readln(a,b);
    writeln(average(a,b):5:2);
end.

Пример выполнения кода:

1.25 2.03
 1.64

В программе создается функция average(), имеющая два вещественных параметра (c и d) и возвращающая также вещественное число. В теле функции вычисляется среднее арифметическое аргументов, оно присваивается имени (идентификатору) функции. В языке программирования Pascal это означает, что присвоенное имени функции значение будет передано в основную ветку программы.

В основной ветке переменным a и b присваиваются значения, введенные пользователем. Далее вызывается функция average(), которой в качестве аргументов передаются значения этих переменных. В данном случае вызов функции не присваивается никакой переменной, так как возвращенное значение сразу будет выведено на экран.