var n,i:integer;
begin
write('n=');readln(n);
write(' Bang cuu chuong cua ',n,' la: ');
for i:=1 to 10 do
write(i*n,' ');
readln;
end.
Program Bang_cuu_chuong_9;
uses_crt;
var i: Integer;
begin
writeln (`Bang cuu chuong',9);
for i:=1 to 10 do writeln (`9x',i,`=',9*i',);
readln
end.