var a,b:integer;
i:integer;
begin
writeln ('Введите числа a и b');
readln (a,b);
for i:=1 to a*b do
if (i mod a=0) and (i mod b=0) then begin
writeln ('Ваше число ',i);
break;
end;
end.