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

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

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

program task_3_lesson_14;
var a: integer;

procedure pr(var n: integer);
var b: integer;
begin
  write('Enter number to initialize variable: ');
  readln(b);
  n := b;
end;

begin
  pr(a);
  writeln('variable has been initialized -> a = ',a);   // проверка инициализации
  readln
end.