Schemat blokowy

[NieRozumiem85]

Narysuj schemat blogowy algorytmu zapisanego w treści procedury:

function zagadka (a,b:integer):integer;
{a>0, b>0}
var r:integer;
begin
repeat
r:=a mod b;
a:=b;
b:=r;
until
r=0;
zagadka:=a;
end;

Jaki jest wynik zagadka (a,b) dla dowolnych dodatnich całkowitych a i b?