var
x, y, sum:integer;
begin
write('x: ');
readln(x);
write('y: ');
readln(y);
sum:= 0;
while y > 0 do
sum := sum + x;
y := y - 1;
end;
writeln(sum);
end.
var
x, y, sum:integer;
begin
write('x: ');
readln(x);
write('y: ');
readln(y);
sum:= 0;
while y > 0 do
begin
sum := sum + x;
y := y - 1;
end;
writeln(sum);
end.