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

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

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

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

procedure sum(x, y, z: integer);
begin // начало тела процедуры
  write (x + y + z); { результат для возврата наружу
  (в глобальное пространство программы из локального пространства процедуры) }
end;  // конец описания функции (её тела)

begin // начало тела основной программы
  readln(a, b,c);
  sum(a, b, c);
  readln();//удерживаем консоль
end. // конец основной программы