ПОЧЕМУ КОД НЕ ВЫВОДИ ПЕРЕМЕННУЮ C??? (ПАСКАЛЬ)

Question

Program n_17; var a, b, c:integer; begin read(a); read(b); while (a<>0) or (b<>0) do begin if a>=b then a:=a-b else b:=b-a; end; c:=1; Write(c); end.

Алексей Воронин · Accepted Answer

Очевидно, цикл никогда не заканчивается. Он вообще никогда не закончится, если a<>b изначально либо они не кратны друг другу.

Рафаэль Губайдуллин · Answer

условие должно быть таким while (a<>0) and (b<>0) do

Ната · Answer

перед с: =1; нужно написать writeln