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

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

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

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(q:integer);
var a: integer;
begin
  a:=4;
  writeln('a=', a);
  writeln('b=', q);
end;

begin
  writeln('Vvedite znach b:');
  readln(b);
  p2(b);
  readln();
end.   

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

Vvedite znach b:
5
a=4
b=5