UCLN, BCNN

Tìm ước chung lớn nhất, bội chung nhỏ nhất của 2 số. Kiểm tra xem 2 số đó có nguyên tố cùng nhau không. Cho chương trình chạy liên tục cho đến khi người dùng nhập một trong hai số là số âm.
                                                                 Giải
Var
       a,b,tg,x,y,bc: Integer;
Begin
   Write('Nhap x,y :'); readln(x,y);
   a:=x; b:=y;
   Repeat
       if a>b then a:= a mod b
       Else
           begin
                tg:=b; b:=a; a:=tg;
           end;
   Until a=0;
   Writeln('UCLN cua ',x,' va ',y,' la: ',b);
   Writeln('BCNT cua ',x,' va ',y,' la: ',(x*y)/b);
   Readln;
End.