program vynasob; var i,j ,pomocna :integer; sucin :integer; begin readln( i,j); if i>j then begin pomocna:=j; j:=i; i:=pomocna; end; sucin:=0; pomocna:=i; repeat sucin:=sucin+j; pomocna:=pomocna-1; until pomocna=0; writeln(i,'*',j,'=',sucin) end.