Program tabuada ;
var n,i:integer;
 Begin
  writeln('Escreva a tabuada que deseja');
   readln(n);
  i:=1 ;
  while i<11 do
	 begin 
	  writeln(n,'*',i,'=',n*i);
	   i:=i+1;
      end;
 End.
 
