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

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

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

program project1;
var numb:integer;

procedure output(var res: integer);
begin
    write('Введите число: '); readln(res);
end;

begin
   output(numb);
   writeln('Результат: ', numb);
   readln();
end.