Matematické Fórum

Zdravim, mohl by mi prosím nekdo zkontrolovat vývoják. Popřípadě nakreslit nebo poradit, zda by to šlo zapsat jednodušeji? Diky.

Př. Program načte neprázdnou posloupnost dvojic čísel x, y udávajících body [x,y] v rovině různé od počátku, ukončenou dvojicí nul a určí, kolik z nich leží na ose x nebo y.