2001/02 – Fase scolastica bis – 06

Considerate il seguente frammento di programma Pascal:

Type
   r = Record
       x, y: Integer;
   End;
Var
   x, z: r;
Begin
   x.x:=1; 
   x.y:=2;
   z.x:=3;
   z.y:=4;
   With x Do
      Begin
         x:=z.y;
         z.x:=y;
      End;
   Writeln( x.x, ' ', x.y, ' ', z.x, ' ', z.y );
End.

Quali valori vengono stampati?