Program P80;
 { Şiruri de caractere de lungime constantă }
type Nume=packed array[1..8] of char;
     Prenume=packed array[1..5] of char;
var N : Nume;
    P : Prenume;
begin
 N:='Munteanu';
 P:='Mihai';
 writeln(N);
 writeln(P);
 readln;
end.