Procedure SvuotaPER(Var PE: Persona);
Begin
  PE.Cognome :='';
  PE.Nome :='';
  PE.Indirizzo:='';
  PE.Telefono :='';
End;

Procedure VediPER(PE: Persona);
Begin
  Writeln(PE.Cognome);
  Writeln(PE.Nome);
  Writeln(PE.Indirizzo);
  Writeln(PE.Telefono);
  Readln;
End;

Procedure LeggiPER(var PE: Persona);
Begin
  Write('Cognome ');   Readln(PE.Cognome);
  Write('Nome ');      Readln(PE.Nome);
  Write('Indirizzo '); Readln(PE.Indirizzo);
  Write('Telefono ');  Readln(PE.Telefono);
End;