Bài 1: 

Program bai1;

uses crt;

var ten,lop: string;

      stt: integer;

begin

clrscr;

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

write('Nhap lop:'); readln(lop);

write('Nhap so thu tu:'); readln(stt);

Writeln(ten,'-',lop,'-',stt);

readln;

end.

Bài 2:

program bai2;

uses crt;

var S,a,b: integer;

begin

clrscr;

write('Nhap chieu dai a='); readln(a);

write('Nhap chieu dai b='); readln(b);

S:=a*b;

writeln('Dien tich hinh chu nhat la:',S);

readln;

end.

Câu 1:

Uses crt;

Clrscr;

Writeln('TRAN THI THUY AN-8A8-....');

Readln

End.

Câu 2:

Uses crt;

Var a,:real;

Begin

Clrscr;

Write('Nhap a va b:'); Readln(a,b);

Writeln('Dien tich chu nhat:',a*b:5:2);

Readln

End.