Задание 3 Урок 14

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

var link: integer;

procedure exercise(var x: integer);
begin
  write('Введите любое целое число не больше 52 и нажмите ENTER ');
  readln(x);
end;

begin
  link := 0;
  writeln('переменная равна ', link);
  exercise(link);
  write('переменная равна ', link);
  readln;
end.