Najväčší spoločný delliteľ - Zlomok (Zadanie 21)

Program zadanie21; Uses CRT; Var a,b,a2,b2,nsd:integer; znamienko:char; Begin ClrScr; WriteLn('Zadaj menovatel.'); ReadLn(a); WriteLn('Zadaj citatel.'); ReadLn(b); if a=0 then WriteLn('Vysledok je 0.'); if b=0 then WriteLn('Nema riesenie.') else Begin if a*b<0 then znamienko:='-' else znamienko:=' '; a2:=abs(a); b2:=abs(b); while a2<>b2 do if a2>b2 then a2:=a2-b2 else b2:=b2-a2; nsd:=a2; a2:=abs(a) div nsd; b2:=abs(b) div nsd; if b=1 then WriteLn('Zlomok v zakladnom tvare je ',znamienko,a2) else WriteLn('Zlomok v zakladnom tvare je ',znamienko,a2,'/',b2); ReadLn; End; End.