Решение задачи №1 из главы 14

Задача №1 из главы 14

Напишите функцию, которая возвращает сумму трёх целых чисел.

var
  a, b, c: integer; // глобальные переменные

function sum(x, y, z: integer): integer;
begin // начало тела функции
  result := x + y + z; { результат для возврата наружу
  (в глобальное пространство программы из локального пространства функции) }
end;  // конец описания функции (её тела)
begin // начало тела основной программы
  readln(a, b,c);
  writeln(sum(a, b, c));
  readln();//удерживаем консоль
end. // конец основной программы