Урок 14.1 Задача 5

Урок 14.1 Задача 5:

У вас есть код:

var b: integer;
 
procedure p2();
var a: integer;
begin
  a:=4;
  writeln('a=', a);
  writeln('b=', b);
end;
 
begin
  writeln('Введите значение b:');
  readln(b);
  p2();
end. 

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

var b: integer;

procedure p2(c: integer); // принимаем значение в локальную переменную
var a: integer;
begin
  a:=4;
  writeln('a=', a);
  writeln('b=', c);       // выводим значение локальной переменной
end;

begin
  writeln('Введите значение b:');
  readln(b);
  p2(b);                  // передаем значение b в процедуру
  readln();
end. 

Вывод в консоли:

Введите значение b:
7
a=4
b=7