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.