program kkk; uses crt; var n,m,p,k,s:integer; i:integer; BEGIN clrscr; writeln('Ââåäèòå m n'); readln(m,n); s:=0; for i:=1 to n do s:=s+m; writeln('s=',s); readln; END.