Дана следующая программа:
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. Какое максимально возможное число может вывести программа?

Спасибо)

Пожалуйста.

В программе вычисляется НОД(a,b). Так как a=39 (39=13*3), то при вводе значения b=26 или b=13 получится максимально возможное число = 13.