KWALIFIKACJA EE8 + EE9 - CZERWIEC 2007

Procedure TEST(var A, B: integer);
var Pom: integer;
begin
 Pom := A;
 A := B;
 B := Pom;
end;