Задача 3 Урок 14. Процедуры и функции

Урок 14. Процедуры и функции

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

var a: integer;
procedure interlink(var x: integer);
begin
  writeln('write num ');
  readln(x);
  a:=x;
  writeln('procedure x =', x);
  writeln('procedure a =', a);
end;
begin
  interlink(a);
  writeln('body a = ', a);
  readln();
end.

//write num
//16
//procedure x =16
//procedure a =16
//body a = 16