Решение №3 из главы 14.Напишите процедуру, которая принимает переменную целого типа по ссылке

Задача № 3 главы 14

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

program pascal_procedure2;
var k : integer;
  
procedure conclusion( var s : integer ); // начало обьявления процедуры
begin // начало тела процедуры
 write( 'Input digit :' );
 readln( s );
end; // конец тела процедуры
  
begin  // начало тела основной программы
 k := 54; // 
 writeln( 'value1 variablе k = ' , k ); // значение до вызова процедуры
 conclusion(k); // вызов процедуры
 writeln( 'value2 variablе k = ' , k  );    
end. // конец тела основной программы
vedro-compota's picture

program pascal_procedure2;
var k : integer;
 
procedure conclusion( var s : integer );
var k: integer;  // ДОБАВИМ 
begin // начало тела процедуры
 write( 'Input digit :' );
 readln( s );
 writeln( 'variablе k = ' , k );   
end; // конец тела процедуры
 
begin  // начало тела основной программы
 k := 54; // 
 writeln( 'variablе k = ' , k ); // значение до вызова процедуры
 conclusion(k); // вызов процедуры
    
end. // конец тела основной программы

-- будет ли тут продемонстрировано изменение значения?

_____________
матфак вгу и остальная классика =)