program webtuga;

uses crt;



var contador,tabuada: integer;



begin

     clrscr;

     writeln('Qual a tabuada?');

     readln(tabuada);



     for contador:=1 to 10 do

         begin

              writeln( tabuada,'x', contador,'=', tabuada*contador);

         end;

     readkey;

end.