Thuật toán tìm UCLN(Gửi em Thu)

Thuật toán tìm UCLN
Bài toán: Tìm ƯCLN của hai số tự nhiên a và b
Giải
Program UCLN;
Uses CRT;
Var a, b, r, temp: byte;
Begin
Clrscr;
Write(`Moi ban nhap hai so a, b: `);readln(a,b);
if (a = 0) and (b = 0) then
Begin
Write(` Moi ban nhap lai`);
Exit;
End;
if (a = 0) then
Begin
Write(` UCLN là `,b);
Exit;
End;
if (b = 0) then
Begin
Write(` UCLN là `,b);
Exit;
End;
if (a Begin
temp:=a;
a:= b;
b:=temp;
end;
r: = a mod b;
While r <> 0 do
Begin
a:= b;
b:=r;
r: = a mod b;
end;
Write(` UCLN = `,b);
Readln;
End.