var n,i:integer;
begin
repeat
write('n=');readln(n);
until (n<10) and (n>0);
for i:=1 to n do
write(' Viet Nam ');
readln;
end.
3) var n,i:integer;
begin
write('n=');readln(n);
for i:=1 to 9 do
write(' Bang cuu chuong cua ',n,' la: ',n*i,' ');
readln;
end.
ấy lại cái 3
var n,i:integer;
begin
write('n=');readln(n);
write(' Bang cuu chuong cua ',n,' la: ');
for i:=1 to 9 do
write(n*i,' ');
readln;
end.