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

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

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

program u142z2;
var a: integer;

procedure p1 (var x: integer);
begin
  write('Vvedite chislo');
  readln(x);
end;

begin
  p1(a);
  writeln(a);
  readln ();
end.