Problem ze zrozumieniem kodu

[toro]

Cześć, mam problem ze zrozumieniem jak przebiega krok po kroku wykonanie funkcji i dwóch procedur, jakby ktos był tak miły i mnie chociaż naprowadził.

 

 

zad 1. W oznaczonych { ... } miejscach programu wpisz, jakie wartości będą

miały zmienne x, y, z.

 

program egzamin;
var x,y,z : Word;  
koniec : Boolean;

function jeden(a:Word; var b:Word):Word; var c:Word;
begin
  a:=a+b;
  c:=b+1;
  b:=c+a;
  jeden:=b-c;
end;

procedure dwa(var a,b,c:Word);
begin
  while c>a do
  begin
   	a:=a-1;
   	b:=a-b;
   	c:=c-b;
  end;
end;

procedure trzy(var a,b,c:Word);
begin
Repeat
   	koniec:=a>c;
   	a:=a+1;
   	c:=c-1;
   	b:=c+a;
until koniec;
end;

begin
 x:=4;y:=2; z:=1; { x = ... y = ... z = ...}
 x:=jeden(y,z);
 x:=10; y:=8; z:=15; { x = ... y = ... z = ...}
 dwa(x,y,z);
 x:=2; y:=7; z:=3; { x = ... y = ... z = ...}
 trzy(x,y,z);
end.

[olesio]

Wstaw sformatowany kod na jakiś zewnętrzny pastebin, to ktoś pomoże. Bo tutaj parser na ogół rozwala fdormatowanie. A na taki kod jak teraz szkoda oczu aby w ogóle spojrzeć.