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

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

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

var
  a, b: integer;

procedure sum(x: integer; var z: integer);
begin
  z := x;
end;

begin
  write('Введите число: ');
  readln(a);
  sum(a, b);
  writeln(b);
  readln();
end.