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

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

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

var
   a, b: integer;
   procedure inicializacia(x: integer; var y: integer);
   begin
     y:= x;
   end;
begin
  writeln('Vvedite celoe chislo');
  readln(a);
  inicializacia(a, b);
  writeln(b);
  readln();
end.