program ukol18;
uses crt;
var x,y:integer;

function nsd(a,b:integer):integer;  {nejvetsi spolecny delitel}
  var
    zbytek:integer;

  begin
    repeat                      {postupne deleni}
     zbytek:=a mod b;           {zjistovani zbytku po deleni}
     a:=b;
     if zbytek = 0 then break else b:=zbytek;
    until zbytek=0;

    nsd:=b;
  end;

function nsn(a,b:longint):longint;  {nejmensi spolecny nasobek}
  begin
   nsn:=(a*b) div nsd(a,b);
  end;

begin
  clrscr;
  write('Zadejte cislo x: ');
  readln(x);

  write('Zadejte cislo y: ');
  readln(y);

  writeln;
  writeln('Jejich nejvetsi spolecny delitel je: ', nsd(x,y));
  writeln('a jejich nejmensi spolecny nasobek je: ', nsn(x,y));
end.