nhập 3 số nguyên dương a, b,c . Hãy tìm ước số chung của 3 chữ số

program baigiai;
uses crt;
var a,b,ucln,i:longint;
begin
 clrscr;
  write('a=');readln(a);
  write('b=');readln(b);

  write('a=');readln(c);
  for i:=1 to a do if(a mod i=0)and(b mod i=0)and(c mod i=0)then ucln:=i;
  writeln('uoc chung lon nhat cua ba so la:',ucln);
 readln;
end.

function ucln(x,y:longint):longint;
  var tmp : longint;
  begin
    while y > 0 do
  begin tmp := x mod y;
         x := y;
         y := tmp;
end;
 exit(x);
end;
var a,b,c,tam:longint;
begin
write('Nhap vao a = ');readln(a);
write('Nhap vao b = ');readln(b);
write('Nhap vao c = ');readln(c); 
tam:=ucln(a,b);
tam:=ucln(tam,c);
writeln('UCLN = ',tam);
readln;
end.