Question

Помогите еще с этим заданием

Значениями переменных a и b являются натуральные числа. Пусть a=50 и b=20 тогда в результате работы следующего алгоритма:

1. Если a=b, то работа алгоритма закончена; иначе выполняется пункт 2;
2. Если a больше b, то переменной a присваивается значение a – b; иначе переменной b присваивается значение b – a;
3. Выполняется пункт 1 данного алгоритма.

Какое значение примет переменная a?

Answer 1

program program1;
var
a,b:integer;
x:boolean;
begin
repeat
begin
a:=50;
b:=20;
if a=b then
x:=true
else
begin
if a>b then
a:=a-b
else
b:=b-a;
end
end;
until x=false;
write(a);
readln;
end.
Значение а=30.