Viết chương trình ƯCLN của 2 số nguyên dương A,B ( A,B nhập vào từ bàn phím)

uses crt;
var a,b:longint;
begin
clrscr;
    read(a,b);
    while a<>b do
        if a>b then dec(a,b) else dec(b,a);
    write(a); 
readln;
readln;
end.

Program BTT;
Uses crt;
Var a,b: longint;
Function UCLN(x,y: longint): longint;
Begin
        While x<>y do
                If x>y then x:=x-y
                Else y:=y-x;
        UCLN:=x;
End;

Begin
        Clrscr;
        Write('Nhap a va b: '); Readln(a,b);
        Write('UCLN(',a,',',b,') = ',UCLN(a,b));
        Readln
End.