Урок 14.1 Задание 3

Задание 3 Урок 14.1

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

var b: integer;
 
procedure pishi();
var a: integer;
begin
  a:=4;
  writeln(a);
  b:=2;
  writeln(b);
end;
 
begin  // тело программы
  b:=3;
  pishi();
  writeln(b);
end. 

-- эта программа в конечном итоге присваивает и выводит на экран 3 значения.

Задача: Уберите зависимость процедуры от глобальной области видимости (т.е. процедура более не должна обращаться к глобальной области видимости), при этом пусть для нового кода выполняются все требования из списка:

вывод программы останется тем же
процедура, как и раньше работает с двумя переменными
а тело программы как и раньше с 1 глобальной переменной
Постарайтесь максимально сохранить использующиеся имена переменных.

program Hello;

var b: integer;

procedure pishi(b: integer);
var a: integer;
begin
  a:=4;
  writeln(a);
  b:=2;
  writeln(b);
end;
 
begin  
  b:=2;
  pishi(b);
  writeln(b);
end. 

Консоль:

4
2
2