Câu 1:
Program qtruong;
Uses crt;
Begin
Clrscr;
Writeln('Ten cua toi la Truong');
Writeln('Toi 13 tuoi');
Writeln('Toi hoc o truong THCS Nguyen Du');
Writeln('Toi song o thanh pho HCM');
readln
end.
Câu 2:
Program qtruong;
Uses crt;
Begin
Clrscr;
Writeln('Hinh 1');
Writeln('× × × × ×');
Writeln('× × × × ×');
Writeln('× × × × ×');
Writeln('×');
Writeln('× × × × ×');
Writeln('Hinh 2');
Writeln(' × × × × ×');
Writeln(' × × × ');
Writeln(' × ');
Writeln(' × × × ');
Writeln('× × × × ×');
readln;
end.
