Đề bài: Nhập vào các từ bàn phím đến số 0 thì kết thúc .Trong những số đã tìm UCLN và BCNN của các số đó Bài làm: Var A:Array[1 100] of integer; i,t,UCLN,n,m:longint; Function UC(x,y:integer):integer; begin While x<>y Do If x>y then x:=x-y Else y:=y-x; UC:=x; end; Begin readln(m); while m<>0 Do begin inc(n); a[n]:=m; Readln(m); end; T:=1; For i:=1 to n do Begin A[i]:=ABS(A[i]); T:=t*A[i]; End; UCLN:=UC(A[1],A[2]); For i:=3 to n do UCLN:=UC(UCLN,A[i]); Writeln('UCLN ',UCLN); Writeln('BCNN ',T div UCLN); Readln; End. . Đề bài: Nhập vào các từ bàn phím đến số 0 thì kết thúc .Trong những số đã tìm UCLN và BCNN của các số đó Bài làm: Var A:Array[1 100] of integer; i,t ,UCLN, n,m:longint;. T:=t*A[i]; End; UCLN: =UC(A[1],A[2]); For i:=3 to n do UCLN: =UC (UCLN, A[i]); Writeln(&apos ;UCLN ' ,UCLN) ; Writeln(&apos ;BCNN ',T div UCLN) ; Readln;