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

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

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

var a: integer;
  procedure SS(var r: integer);
  begin
    r := 1;
  end;
begin
  write('a = ');
  readln(a);
  SS(a);
  write(a);
  readln();
end.