(2 ĐIỂM) HÃY ĐỌC CHƯƠNG TRÌNH SAU ĐÂY VÀ CHO BIẾT KẾT QUẢ HIỆN...

Bài 1. (2 điểm) Hãy đọc chương trình sau đây và cho biết kết quả hiện trên màn hình?

y: integer):integer;

Var r:integer;

a := 27; b:= 36;

while y<>0 do

writeln(a,‘ ‘, b);

writeln(UCLN(a,b));

begin

r := x mod y; x := y; y := r;

writeln(2 + 2*UCLN(a,b));

end;

readln;

UCLN:=x;