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

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

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

Решение:

var a: integer;

procedure chislo(var x:integer);
begin
  writeln('vvedite chislo');
  readln(x);
end;
begin
  chislo(a);
  writeln('chislo = ',a);
  readln();
end.

Консоль:

vvedite chislo
7
chislo = 7