2000/01 – Fase scolastica – 01

Cosa stampa il seguente programma?

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