program Thong_tin_ca_nhan;

uses crt;

begin

clrscr;   {xóa màn hình}

writeln ('Ho va Ten: Hoang Phuc Hung');   {in ra màn hình họ và tên}

writeln ('Que quan: Đoi bay Nai Cuu trieu Thanh Trieu Phong Quang Tri');{in ra màn hình quê quán}

writeln ('Hoc sinh lop 8A / Truong THCS Trieu Thanh');   {in ra màn hình trường lớp}

readln;   {dừng màn hình}

end.

chúc bạn học tốt !!!

mấy cái in đậm để chú thích cho bạn hiểu thôi nhé không cần chép đâu ^_^

program gioithieu;

uses crt;

  begin

    clrscr;

    writeln('Ho va ten: Hoang Phuc Hung');

    writeln('Truong: THCS Trieu Thanh');

    writeln('Lop: 8A');

    writeln('Que quan: Doi bay Nai Cuu Trieu Thanh Trieu Phong Quang Tri');

   readln

  end.