Урок 14.2 Задача 2

Урок 14.2 Задача 2:

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

var a: integer;

procedure chislo (var x: integer);       // процедура принимает значение по ссылке
begin
  write ('Введите число, кроме 0: ');    // просим ввести значение
  readln (x);                            // перезаписываем значение, принятое по ссылке
end;

begin                                    // тело программы
  chislo(a);                             // вызываем процедуру, передаем значение переменной
  writeln(a);                            // после вызова процедуры выводим на экран значение этой же переменной
  readln ();
end.  

Вывод в консоли:
Введите число, кроме 0: 57
57