Priklad Delphi

Ahojte. Vedel by mi niekto poradit s odpovedou na otazku?

V procedure Beh zavolame funkciu Start. Ake hodnoty budu mat premenne X,Y, a Z na konci procedury BEH?( Napr: Vypis: x-3 , y-4, z-5 )

Function Start (var a:integer;b:integer):integer;
var pom:integer;
begin
pom:=a;
a:=b;
b:=pom;
start:=a-b;
end;

Procedure Beh;
var x,y,z:integer;
begin
x:=5
y:=6
z:=0;
Start(x,y);
end

Ďakujem za radu

x = 6
y = 6
z = 0

Ahoj a v tomto pripade?

Procedure akcia (var a:integer; b:integer; var c:integer);

var pom:integer;
begin
pom:=a;
a:=b;
b:=pom;
c:=a*b;
end;

procedure cinnost;
var x,y,z:integer;
begin
x:=1;
y:=2;
z:=3
Akcia(x,10,y);
Akcia(x,y,z);
end;

10, 10, 3 a po druhom volani 10, 10, 100