Program suma;
var
n, c, i, suma:integer;
begin
Writeln("Vvedi kolichestvo");
Readln(n)
Writeln("Vvedi n chisel");
Readln(c);
for i:=1 to n do
begin suma:= suma+c;
end;
writeln(suma);
end.