Задача 3 урок 14 Процедура, которая принимает переменную целого типа по ссылке, пример решения задачи

Урок 14 задача 3

Напишите процедуру, которая принимает переменную целого типа по ссылке, просит пользователя ввести значение в консоли и инициализирует переменную этим значением (убедитесь, что в теле программы значение изменилось).

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

procedure sum(x, y, z: integer; var q: integer); // начало объявления процедуры
begin
  q := x + y + z; // тело процедуры
  writeln(q);
end;

begin // начало тела программы
  write('Введите два числа: ');
  writeln(d);
  readln(a, b, c);  //  ввод переменной
  sum(a, b, c, d); { -- вызов процедуры с параметрами (аргументами)
  процедура вызывается своим именем}
  writeln(d);
  readln();
end.