---

Program 22; var x,y,z:integer; function ostatok (a,b:integer):integer; var ost, p:integer; begin if a/b p:=a; a:=b; b:=p;end; ost:=b-a; while ost>=a do begin b:=ost;ost:=b-a; end; ostatok:=ost; end; begin Readln (x, y); writeln (ostatok (x, y)); end.

---

---

---