uses crt;
function Benis(a,b:integer):integer;

begin
    if (b=0) then Benis:=a
        else Benis:=Benis(b,a mod b);
end;

    var m,n:integer;
begin
  write('Ievadi 1 skaitli= ');
  readln(m);
  write('Ievadi 2 skaitli= ');
  readln(n);
  if (n>m) then writeln('Lielakais kopigais dalitajs: ',Benis(n,m))
            else writeln('Lielakais kopigais dalitajs: ',Benis(m,n));
  Readln;
end.