Дана блок-схема. Написать программу по блок-схеме.
Помогите пожалуйста!

Это полный разветвляющийся алгоритм.Программа на языке Паскаль АВС:program flow chart;var x,y:integer;beginreadln(x);readln(y);if x^2+y^2<25 then write(‘НЕ ПРИНАДЛЕЖИТ’);else write(x^2+y^2<=100);if x^2+y^2<=100 then write(‘ПРИНАДЛЕЖИТ’);else write(‘НЕ ПРИНАДЛЕЖИТ’);end.