hãy cho biết đoạn chương trình sau thực hiện công việc gì: while b<>0 do begin sd:=a mod b; a:=b; b:=sd; end;

Đoạn chương trình thực hiện công việc tìm UCLN của a và b

đoạn chương trình đầy đủ là:

uses crt;
var a, b, sd, UC: integer;
begin
 clrscr;
  write (‘nhap a: ‘);  readln (a);
  write (‘nhap b: ‘);  readln (b);
 while (b<>0) do
  begin
   sd:=a mod b;
   a:=b;
   b:=sd;
  end;
   writeln;
 UC:=a;
 writeln (‘ucln cua a va b la: ‘,UC);
 readln;
end.