(* mjaparam.p *)

program muuttujaparametriesimerkki;

(* vaihtaa kaksi muuttujaparametriaan *)
procedure swap(var a, b : integer);
	var tmp : integer;
begin
	tmp := a;
	a := b;
	b := tmp;
end; (* swap() *)


(* pääohjelma *)
var a1, a2 : integer;

begin

	a1 := 3;
	a2 := 2;

	writeln(a1, ' ', a2);

	swap(a1, a2);
	writeln(a1, ' ', a2);

end.