Var a, i:integer;
Begin
Writeln('Введите число') ;
Read(a) ;
For i:=1 to 9 do writeln( a, '*', i, '=', a*i) ;
End.
