Var a,b:integer; Begin writeln('Sayı 1 = ');readln(a); writeln('Sayı 2 = ');readln(b); while a <> b DO Begin if a > b then a:= a-b else b:= b-a; End; writeln('Obeb Sonuç = ',a); End.