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

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

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

program U14Z3;
var a:integer;
procedure izm(var x:integer);
var z:integer;
begin
  writeln('vvedite znachenie');
  readln(z);
  x:=z;
end;
begin
  a:=0;
  izm(a);
  writeln('proverka: a=',a);
  readln();
end.