program CheckInteger;

var
  N, i, result: integer;
  isInteger: boolean;

begin
  repeat
    writeln('Nhap so N: ');
    readln(N);
    isInteger := N = round(N); // kiem tra N co la so nguyen hay khong
    if not isInteger then
      writeln('N khong phai la so nguyen. Vui long nhap lai.');
  until isInteger;

  // Neu N la so nguyen, in bang cuu chuong cua N
  writeln('Bang cuu chuong cua ', N, ':');
  for i := 1 to 10 do
  begin
    result := N * i;
    writeln(N, ' x ', i, ' = ', result);
  end;

  readln;
end.