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

Задача 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 u141z3;
var b: integer;
procedure pishi();
var a,b: integer;   //добавил переменную "b" в процедуру
begin
  a:=4;
  writeln(a);
  b:=2;
  writeln(b);
end;
begin  // тело программы
  b:=2;              //изменил значение "b" с 3 на 2
  pishi();
  writeln(b);
  readln();
end.