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

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

var a:integer;

procedure send(var z:integer);
begin
  writeln('Vvedite celoe chislo: ');
  readln(z);
end;

begin
  a:=1;
  send(a);
  writeln(a);
end.   

Консоль:

Vvedite celoe chislo: 
5

5