program Bevarde7;
var a,b,c:integer;
begin
 WriteLn('Iveskite a');
 Readln(a);
 WriteLn('Iveskite b');
 Readln(b);
 if (a=b)
 then writeln (a,'lygus',b)
 else if (a>b)
 then c:=a div b
 else if (b>a)
      then c:=b div a;
 writeln ('atsakymas',c);
 readln;
end.