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

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

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

var a:integer;
procedure sum(var z:integer);
begin
  writeln('Vvedite chislo: ');
  readln(z);
end;
begin
  a:=10;
  sum(a);
  writeln(a);
  readln();
end.