Вопрос по информатике:

Дана следующая программа:
var a,b,r:integer;
begin
readln(a,b);
while b<>0 do begin
r:=a mod b;
a:=b;
b:=r;
end;
writeln(a);
end.
На вход программе переменной a подаётся значение 39, а переменной b – какое-то натуральное число, строго меньшее 39. Какое максимально возможное число может вывести программа?