Задача 2 Урок 14.2

Задача 2 Урок 14.2:

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

var a, b, c: integer;
procedure sum(q, w, e: integer);
begin
  writeln(q + w + e);
end;
begin
  writeln('write 3 nums');
  readln(a,b,c);
  sum(a,b,c);
  readln();
end.  

Вывод консоли:

write 3 nums
1
2
3
6