uses crt; var a,b:word; function ucln(a,b:word):word; begin while a<>b do if a>b then dec(a,b) else dec(b,a); exit(a*b div a); end; begin clrscr; read(a,b); write(ucln(a,b)); readln; readln; end.
* BCNN:
uses crt; var a,b:word; function bcnn(a,b:word):word; begin while a<>b do if a>b then dec(a,b) else dec(b,a); exit(a); end; begin clrscr; read(a,b); write(bcnn(a,b)); readln; readln; end.
