câu 2
program aaa;
uses crt;
var i:read;
begin clrscr;
for i := 1 to 4 do
writeln('AAAAAA');
readln;
end.
bài 4
program gioithieu;
uses crt;
begin clrscr;
writeln('Xin chao cac ban');
writeln('Ten toi la: Nguyen Van A');
writeln('Lop 8a...');
writeln('Truong THCS An Phuoc');
readln;
end.