program legnagyobb_kozos_oszto;
uses Crt, Rutin;
var
    egyik,masik    : longint;
    jel            : char;

function lnko(a,b : longint):longint;
var
    maradek,s      : longint;
    nem_osztoja    : boolean;
begin
   { ha a vagy b negat�v, akkor az abszol�t�rt�ke kell }
   a:=Abs(a); b:=Abs(b);
   { ha az a kisebb cser�lni kell }
   if a<b then begin s:=a; a:=b; b:=s; end;
   { ciklus m�g a marad�k nem 0 }
   repeat
     maradek:=a mod b;
     a:=b;
     b:=maradek;
   until maradek=0;
   lnko:=a;
end;

begin { f�program }
  repeat
   ClrScr; WriteLn('AZ LNKO �S AZ LKKT MEGHAT�ROZ�SA':50); WriteLn;
   { beolvas�s }
   WriteXY(3,3,'   Add meg az egyik sz�mot : ');
   LongRead(egyik);
   WriteXY(3,5,'   Add meg a  m�sik sz�mot : ');
   LongRead(masik);
   { ki�rat�s }
   WriteXY(12,7,'   Az lnko : ('); Write(egyik,',',masik,') = ');
   WriteLn(lnko(egyik,masik)); WriteLn;
   Write('   Az lkkt : [':40,egyik,',',masik,'] = ');
   WriteLn(egyik div lnko(egyik,masik)* masik);
   WriteXY(45,25,'ESC kil�p, b�rmi m�s �jra...');
   jel:=ReadKey;
 until jel=#27;
end.