Bài 1:

Program bai_tap1;

Begin

Writeln ('Xin chao');

Writeln ('Toi ten la: Tran Thi C');

Writeln ('Hoc sinh lop: 12A');

End.

Bài 2:

Hình 1:

Program hinh1;

Begin

Writeln ('x x x x x');

Writeln ('x x x x x');

Writeln ('x x x x x');

Writeln ('x           ');

Writeln ('x x x x x');

End.

Hình 2:

Program hinh2;

Begin

Writeln ('x x x x x');

Writeln (' x x x    ');

Writeln ('    x      ');

Writeln (' x x x    ');

Writeln ('x x x x x');

End.

#Hình 2.2 có phải là hình trong ảnh không bạn?  

Bài 1:

uses crt;
begin
clrscr;
   writeln('Toi ten: ...');
   writeln('Hoc sinh lop: ...');
   writeln('Hoc truong: ...');
   writeln('So thich cua toi la: ...');
readln
end.

Bài 2:

uses crt;
begin
clrscr;
writeln('Hinh 1:');
   writeln('x x x x x');
   writeln('x x x x x');
   writeln('x x x x x');
   writeln('x');
   writeln('x x x x x');
writeln('Hinh 2:');
   writeln('x x x x x');
   writeln('  x x x ');
   writeln('    x');
   writeln('  x x x');
   writeln('x x x x x');
readln
end.