program krolik;
var a,b,i,del,kr,p:longint;
begin
writeln('введите значение первого числа');
readln(a);
writeln('введите значение второго числа');
readln(b);
if (a<=0) or (b<=0) then
writeln('ошибка');
del:=1;
for i:=1 to a do
if (a mod i=0) and (b mod i=0) then
del:=i;
p:=a*b;
kr:=p;
for i:=p downto 1 do
if (i mod a=0) and (i mod b=0) then
kr:=i;
writeln(del,' ',kr);
end.