program UCLN;

uses Crt;

var UCLN : integer;

      a, b: integer;

begin

         Clrscr;

         Writeln ('Nhap so nguyen a:');

         Readln (a);

         Writeln ('Nhap so nguyen b:');

         Readln (b);

         while a>b then a := a-b;

         else b := b-a;

         if a=b then writeln ('Uoc chung lon nhat la:',a:0:2);

         Readln;

end.

ƯỚC CHUNG LỚN NHẤT:

uses crt;
var a,b,i:longint;
begin
clrscr;
   write('Nhap 2 so: ');readln(a,b);
   i:=a;
   while(a mod i<>0)or(b mod i<>0) do dec(i);
   writeln('UCLN(',a,',',b,')= ',i);
readln;
end.

BỘI CHUNG NHỎ NHẤT:

uses crt;
var a,b,i:longint;
begin
clrscr;
   write('Nhap 2 so: ');readln(a,b);
   i:=a;
   while(i mod a<>0)or(i mod b<>0) do inc(i);
   writeln('BCNN(',a,',',b,')= ',i);
readln;
end.