. Viết chương trình tìm UCLN của hai số a, b được nhập vào từ bàn phím. ( pascal 8 )

Program BTH;
Uses crt;
Var a,b: longint;
Begin
        Clrscr;
        Write(‘Nhap a: ‘);readln(a);
        Write(‘Nhap b: ‘);readln(b);
        While a<>b do
                If a>b then a:=a-b else
                if b>a then b:=b-a;
        Writeln(‘UCLN la: ‘,a);
        readln;
End.