czy ktoś umiałby mi to rozpisać w prosty i logiczny sposób
1. Podaj wartości zmiennych a i b, po wykonaniu podanego fragmentu programu.

procedure Dodaj(var x : integer; y : integer);
var z : integer;
begin
z := 1;
y := x + y;
x := x + y + z;
end;

{w części głównej programu:}
a := 2;
b := 5;
z := 7;
Dodaj(a, b);

Odpowiedź: a =

b =
_________________________________________________________
2. Podaj wartości zmiennych a i b, po wykonaniu podanego fragmentu programu.

function z(x, y : integer) : integer;
begin
if x = y then z := 0
else if x > y then z := -5*x + y + 1
else z := y - x + 1
end;

{w części głównej programu:}
a := z(40, 10);
b := z(a, 7);

Odpowiedź: a =

b =