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

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

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

var a: integer;
procedure chislo(var x: integer);
begin
  write('Введите целое число: ');
  readln(x);
end;
begin
  writeln('a=', a);
  chislo(a);
  writeln('a=', a);
  readln();
end.