Câu 17:
uses crt;
var i:longint;
begin
clrscr;
for i:=1 to 10 do
writeln('BT tin hoc.doc');
readln
end.
Câu 18:
uses crt;
var i:longint;
begin
clrscr;
for i:=1 to 5 do
writeln('BT tin hoc');
for i:=1 to 5 do
writeln('.doc');
readln
end.
Câu 19:
uses crt;
var i:longint;
begin
clrscr;
for i:=1 to 6 do
writeln('CAU TRUC LAP FOR...DO');
readln
end.