PROGRAM Ggt(Input,Output); VAR A,B,H: Integer; BEGIN ReadLn(A,B); WHILE A <> B DO BEGIN IF B > A THEN BEGIN H := A; A := B; B := H; END; A := A-B; END; WriteLn(A) END.