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

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

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

program zadacha3;
var x: integer;

procedure init(var a: integer);
begin
  writeln('Vvedite chislo');
  readln(a);
end;

begin
  x:=1;
  init(x);
  writeln(x);
  readln();
end.