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

Урок 14

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

var  a: integer;

  procedure p1(var g: integer);
  begin
    writeln('Vvedite znachenie g');
    readln(g);
    writeln('Znachenie g = ', a);
  end;

begin
  a := 3;
  writeln('Znachenie a = ', a);
  p1(a);
  writeln('Novoe znachenie a = ', a);
  readln();
end.

КОНСОЛЬ

Znachenie a = 3
Vvedite znachenie g
12
Znachenie g = 12
Novoe znachenie a = 12