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

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

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

var a: integer;
procedure interlink(var i: integer);
begin
  writeln('vvedite 4islo -  ');
  readln(i);
  a:=i;
  writeln('i =', i);
  writeln('a =', a);
end;
begin
  interlink(a);
  writeln('a = ', a);
  readln();
end.