разработать схему алгоритма разветвляющегося процесса. Даны (введены с клавиатуры) координаты точки A(x1,y1), для которой необходимо определить: принадлежит ли точка графику функции Результат вывести на экран

1) Наблюдать это: смотреть и слушать.
2) Сбор информации - это наблюдение и записывание.
     Представить информацию на носителе - это зарисовать или записать.
3) * это цветок (листья, на которые падает дождь)
    * это собачка (два уха, 4 лапки, хвост, 2 глаза и черный носик)
получения информации:
    - наблюдение
    - беседа
    - измерение
    - исследование
    - чтение
5) Действия с информацией: изображать схему, рисовать, записывать, наблюдать, запоминать, мыслить, думать.
     Действия с предметами: рубить дрова, резать картофель, готовить суп.
6) А) бинокль, микроскоп, лупа
     Б) линейка, транспортир, термометр

Uses crt;
var a,b:array[1..100] of integer; i,j,k,n:integer;
procedure rmassr;
begin
    for i:=1 to n do begin
        a[i]:=random(10);
    end;
end;
procedure rmassy;
begin
    for i:=1 to n do begin
        readln(a[i]);
    end;
end;
procedure rmass();
begin
    for i:=1 to n do begin
        write(a[i],' ');
    end;
end;
procedure newmass;
begin
    for i:=1 to n do begin
        if a[i] > 0 then b[i]:=a[i];
    end;
    for i:=1 to n do begin
        j:=j+b[i];
    end;
    writeln('summa = ',j);
end;
begin
clrscr;
randomize;
write('длина массива '); readln(n);
write('1-random; 2-в ручную'); readln(k);
if k = 1 then
    rmassr()
else rmassy();
rmass();
writeln();
newmass();
readln
end.