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

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

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

var a : integer;

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

begin
  write('Enter an integer : ');
  readln(a);
  sum(a);
  writeln('a = ', a);
  readln();
end.