Var i,a,b:integer;
Begin
read(a); read(b);
if(a>b)then begin
writeln(a*b);
end else begin
writeln(b div a);
end;
end.
Объяснение:
программа написана на Pascal
