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