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

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

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

var a: integer;
procedure f1(var p: integer);
begin
  readln(p);
end;

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