5.1:

uses crt;
var i,cach:longint; hvt,vo:string;
begin
clrscr;
   write('Ho ten: ');readln(hvt);
   write('Ten vo: ');readln(vo);
   Cach:=23;
   if 10+length(Hvt)>23 then cach:=10+length(Hvt)+1;
   for i:=1 to cach do write('*'); writeln;
   writeln('* TRUONG THCS TRAN PHU');
   writeln('* LOP: HSG TIN HOC');
   writeln('* HO TEN: ',hvt);
   writeln('* VO: ',vo);
   for i:=1 to cach do write('*');
   for i:=3 to 7 do begin gotoxy(cach,i); write('*'); end;
readln
end.

5.2:

uses crt;
var a,b,S,ts:string; I,c,d,hang,tam,e:longint;
begin
clrscr;
   write('a=');readln(a);
   write('b=');readln(b);
   val(a,c); val(b,d); str(c*d,s);
   hang:=3;
   gotoxy(length(s)-2,hang); writeln(a); inc(hang,2);
   writeln('x');
   gotoxy(length(s)-2,hang); writeln(b); inc(hang,2);
   For i:=1 to length(s) do write('-');writeln;
   for i:=3 downto 1 do
      begin
         val(b[i],tam,e);
         str(tam*c,ts);
         gotoxy(length(s)-length(ts)+i-2,hang); write(ts);
         inc(hang);
      end;
   writeln;
   For i:=1 to length(s) do write('-');writeln;
   writeln(s);
readln
end.

Bài 5.2 này mình cũng có trả lời ở bên kia rồi nên không phải là copy của người khác đâu nhé:

/////////////////////////////////////////////

Test:

Bài 5.1:

program kaito;

uses crt;

var a, b: string;

begin

   clrscr;

   write('Nhap ho ten: '); readln(a);

   write('Nhap ten vo: '); readln(b);

   writeln('***************************');

   writeln('* TRUONG THCS TRAN PHU      *');

   writeln('* LOP: TIN HOC                          *');

   writeln('* HO TEN: ',a,'                             *);

   writeln('* VO: ',b,'                                      *);

   writeln('***************************');

   readln;

end.

Bài 5.2:

program kaito;

uses crt;

vả a, b: integer;

begin

   clrscr;

   write('nhap a: '); readln(a);

   write('nhap b: '); readln(b);

   if (a>999) or (b>999) then  write('* khong hop le !!!');

   else 

   if (a+b>999) then 

      begin

         gotoxy(5,wherey); writeln(a);

         writeln('+');

         gotoxy(5,wherey); writeln(b);

         writeln('.........');

         gotoxy(4,wherey); writeln(a+b);

      end

   else

      begin

         gotoxy(5,wherey); writeln(a);

         writeln('+');

         gotoxy(5,wherey); writeln(b);

         writeln('.........');

         gotoxy(5,wherey); writeln(a+b);

      end;

   readln;

end.

CHÚC BẠN HỌC TỐT!!!