1)
uses crt;
var
i: integer;
begin
clrscr;
while i<=10 do
begin
write('Ten toi la Nam');
i:=i+1;
end;
readln
End.
2)
uses crt;
var
i: integer;
begin
clrscr;
writeln('bang cuu chuong 2');
while i<= 10 do
begin
i:=i+1;
writeln(' 2 x ',i,' = ',2*i);
end;
readln
end.