program Test_1;
 { jaką wartość przyjmą zmienne x,y,z w oznaczonych miejscach programu? }
 {$APPTYPE CONSOLE}

uses
  SysUtils;

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

function f1(var b,c:Word):Word; var a:Word;
begin
  a:=c+b;
  b:=c+1;
  c:=b+1;
  f1:=b+c;
end;

procedure p1(var a,b :Word; c:Word);
begin
  while a<=b do
  begin
    a:=a+2;
    b:=b+1;
    c:=b+a;
    Writeln('---    ',a,' ',b,' ',c);
  end;
end;

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

begin
  x:=1; y:=2;   z:=3;
  Writeln('x y z  - wartosci poczatkowe:');
  Writeln(x,' ',y,' ',z);
  x:=f1(y,z);   { x = ...   y = ... z = ... }
  Writeln('x y z  po wywolaniu funkcji f1');
  Writeln(x,' ',y,' ',z);

  x:=0; y:=3; z:=5;
  Writeln('x y z  - wartosci poczatkowe:');
  p1(x,y,z);    { x = ...   y = ... z = ... }
  Writeln('x y z  po wywolaniu procedury p1');
  Writeln(x,' ',y,' ',z);

  x:=2; y:=3; z:=4;
  Writeln('x y z  - wartosci poczatkowe:');
  p2(x,y,z);    { x = ...   y = ... z = ... }
  Writeln('x y z  po wywolaniu procedury p1');
  Writeln(x,' ',y,' ',z);

  Writeln;
  Write('koniec ..');
  Readln;

  end.