uses crt;
var a,b,c,d: string;
begin
clrscr;
write ('nhap truong: ');   readln(a);
write ('nhap lop: ');   readln (b);
write ('nhap ho va ten: ');  readln(c);
write ('nhap nam hoc: ');  readln(c);

clrscr;

write ('*************************');
writeln('Truong: ',a,'   *);
writeln('Lop: ',b,'                     *);
writeln('Ho va ten: ',c,'*);
writeln('Nam hoc: ',d,'  *);
writeln('*************************');
readln;
end.

program ct;
uses crt;
var HoTen,Lop,Truong,NamHoc: string;
begin
    clrscr;
    writeln('Nhap truong:');readln(Truong);
    writeln('Nhap lop:');readln(Lop);
    writeln('Nhap Ho va Ten:');readln(HoTen);
    writeln('Nhap nam hoc:');readln(NamHoc);
    clrscr;
    writeln('*************************');
    writeln('Truong: ',Truong);
    writeln('Lop: ',Lop);
    writeln('Ho va ten: ',HoTen);
    writeln('Nam hoc: ',NamHoc);
    writeln('*************************');
    readln;
end.
___________________

#Duahauvn