Задача 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. 

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

var b: integer;
procedure podprog();
var a, b: integer;
begin
  a:=4;
  writeln(a);
  b:=2;
  writeln(b);
end;

begin
  b:=3;
  podprog();
  writeln(b);
  readln();
end.

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

4
2
3