Programmer 
Content
don’t write comments. My code documents itself. The code: pryntm pwyntcreu(cyson dwbl x, cyson dubl y) pwyntm pwynt dyrannu(mainto(pwyntm)); pwynt-x x; pwynt-y y; dychwelyd pwynt; gwagLe pwyntrhydd(pwyntm pwynt) 1 os(pwynt DIM) dychwelyd; rhydd(pwynt); pwynt DIM; pwyntm pwyntychwanequ(cyson pwyntm a, cyson pwyntm b) dychwelyd pwyntcreu(a-x b-x, a2v b-): gwagle pwyntcynydd (pwyntm pwynt, cyson pwyntm gwerthcynyddran) pwynt-x gwerthcynyddran-x; pwynt-y gwerthcynyddran-y; gwagle pwyntallbwn(cyson pwyntm prynt, cyson cymeriade enw) allbwn(s: (lf, lf)n", enw, pwynt-x, prynt-y) ; cyfanrif prif0) pwyntm a pwyntcreu(11, 7); pwyntm b pwyntcreu(23, 11); pwyntm canlyniad pwyntychwanegu(a, b) ; pwyntallbwn(canlyniad, "Canlyniad"); pwyntrhydd(a); canys (cyfanrif 1 0; 1 5; i) pwyntcynydd (canlyniad, b); pwyntallbwn (canlyniad, "Canlyniad"); pwyntrhydd (b) ; pwyntrhydd (canlyniad); dychwelyd ALLANFALLWYDDIANT;