Как записывается полная форма разветвляющегося алгоритма? примеры.

          чертишь координатные оси   , рисуешь круг с радиусов в 2 единичных отрезка , где нибудь т.x и т. y , т. r внутри круга или на ободе круга , тобишь где прямая с осью имеет общую точку и начинаешь искать всё по моей схеме .                                                                                                           ι             ι                                                     ιначалоι                                                     ιι                                                         ι                                                         ι                                                                                                 ιопределениеι                                                 ι       окна        ι                                                 ι ι                                                         ι                                                         ι                                                 ι                                               /                   /                                               /ввод x,y,r/                                             //                                                           ι                                                           ι                                                 ι                                               /       /                                               /   рисунка  /                                             //                                                           ι                                                           ι                                 условие да                                      ι                                               ι                                     ι                                               ι                             1 действие                               2 действие                                   ι                                               ι                                     ιι                                                           ι                                                           ι                                                                                           /                         /                                             /   вывод x,y,r  /                                            / /                                                           ι                                                           ι                                                                                              (       конец       )                                                 ⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻

программа не будет давать верный ответ при n> 20 т.к. нет такого целочисленного типа переменных. uint64-самый большой из всех

 

vari, n, p: uint64; a: array [1..10000] of integer; beginread(n); p: =1; for i: =1 to n dobegina[i]: =i; p: =p*a[i]; end; if n> 33 thenwriteln('eror')elseif n=0 thenwriteln('p=1')elsewriteln('p=',p); end.