блок-схемы(

[Ankas]

Прошу помощи!!! нужно нарисовать блок-схемы к двум задачам а ничерта в этом не понимаю(

Составить алгоритм решения задачи и представить его в виде блок-схемы.
1)тема:разработка алгоритма циклической структуры. В эвм по очереди вводятся координаты n точек. Определить, сколько из них принадлежит фигуре, ограниченной функцией y=x^2 и прямой y=5+x/2.
2)тема:обработка одномерных массивов. Ввести n чисел. Определить, сколько среди них превосходит первое число. к этим задачам мне помогли с кодами на паскале-вот они:
вот первая:
Code
program anka;
var n, i : integer;
x, y : array[1..100] of integer;
begin
cls;
read(n);
for i:=1 to n do read(x[i], y[i]);
for i:=1 to n do
if (y[i]>x[i]*x[i])and(y[i]<5+x[i]/2)then writeln(i, ' òî÷êà ïîïàäàåò â îáëàñòü');
end.

вот вторая:
Code
program anka2;
var n, i, x : integer;
a : array[1..100] of integer;
begin
cls;
read(n);
for i:=1 to n do begin
read(a[i]);
if a[i]>a[1] then inc(x);
end;
write(x);
end.

Пробовала проги использовать для создания блок-схем по коду. и нифига. ПОМОГИТЕ ПОЖАЛУЙСТА! СКОРО СЕССИЯ!

[ROMA2PVT]

Вставь после блока начало блок описания переменных (Var).И во второй убери блок cls.