Viết Chương trình tìm UCLN và BCNN của 2 số a,b được nhập từ bàn phím pascal

uses crt;

var a,b,ucln,bcnn,i:integer;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

ucln:=1;

if a

                        for i:=1 to a do

                         if (a mod i=0) and (b mod i=0) then 

begin

                               if ucln

                               end;    

                   end else begin

              for i:=1 to b do

                  if (a mod i=0) and (b mod i=0) then

                      begin

                           if ucln

                      end;      

       end;

bcnn:=a*b;

for i:=a*b-1 downto 1 do  

   if (i mod a=0) and (i mod b=0) then      

       begin

             if bcnn>i then bcnn:=i;      

       end;

writeln('Uoc chung lon nhat la: ',ucln); 

writeln('Boi chung nho nhat la: ',bcnn);

uses crt;
var a,b,t: int64;
begin
clrscr;
    readln(a,b);
    while b <> 0 do
    begin
       t := b;
       b := a mod b;
       a := t;
    end;
    write(a)
end.