uses crt;
var x,y,z: string;
Begin
    clrscr;
    write('Em ten la: '); readln(x);
    write('Hoc sinh lop: '); readln(y);
    write('Truong THCS: '); readln(z);
    readln;
End.

.

.

" Em ten la ..."
" Hoc sinh lop ..."
" Truong THCS ..."

Bạn tự nhập như hình nhé

In trực tiếp không dùng biến (thay đổi trong writeln)

program bai_giai;
uses crt;
begin
    clrscr;
    writeln('Em ten la: ');
    writeln('Hoc sinh lop: ');
    writeln('Truong THCS ');
    readln;
end.

Muốn thay đổi từ thì chỉ cần thay đổi trong dấu ' ' trong writeln thôi.

Writeln là in ra và xuống dòng, còn write chỉ in ra.

Vừa chạy vừa nhập dữ liệu:

program bai_giai;
uses crt;
var ht,lop,truong:string;
begin
    clrscr;
    write('Em ten la: '); readln(ht);
    write('Hoc sinh lop: '); readln(lop);
    write('Truong THCS '); readln(truong);
    readln;
end.

Lần này ta dùng write vì viết xong sẽ nhập dữ liệu đi kèm sẽ đẹp hơn.