program nhan_vo;
uses crt;
begin
    clrscr;
    writeln('***************************************');
    writeln('* Truong: THCS NGUYEN CONG TRU        *');
    writeln('* Lop   : 8/...                       *');
    writeln('* Ho va ten: ..............           *');
    writeln('* Tap   : Tin Hoc                     *');
    writeln('* Nam   :                             *');
    writeln('***************************************');
    readln;
end.

Cách copy từ nơi khác sang pascal

B1: Copy phần muốn chuyển vào pascal

B2: Vào pascal, chọn edit -> paste from Window.

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.