program username; var name;string[60]; user crt; begin

     clrscr;
     writeln("inserisci il nome");
     readln("name");      
     clrscr;
     writeln("benvenuto, ',name");
     clrscr;
     writeln("qual'è il tuo soprannome");
     readln("surname"); 
     clrscr;
     writeln("che brutto");
     readkey;

end.

program number; var number;string[100]; user crt;

     clrscr;
     writeln("scegli un numero");
     readln("number");
     clsscr;
     writeln("hai scelto un numero da sfigato")
     readkey;

end.