uses crt;
var s,s1,s2:string;
begin
write('nhap ten '); readln(s);
write('nhap lop '); readln(s1);
write('nhap nam '); readln(s2);
writeln('********************************');
writeln('*Truong : THCS NGUYEN CONG TRU *');
writeln('*Ten :',s,'*');
writeln('*Lop :',s1,' *');
writeln('*Tap :Tin Hoc *');
writeln('*Nam :',s2,' *');
writeln('********************************');
readln;
end.