program NSD2;
{ Co udělá tento program? }
var a,b,pom : integer;
begin
read(a,b);
while (a > 0) do
begin
if (a < b) then
begin
pom := a;
a := b;
b := pom;
end;
a := a mod b;
end;
write(a);
end.
Kdo byste našel v nějakém z těchto programů chybu, dejte mi to vědět - můžete tak získat bonusové body (1 chyba ≈ 5 bodů). ;)