помогите с блок схем

[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]

Ankas тему новую создайте тогда вам помогут.

[b345t]

где ошибка?

[ROMA2PVT]

Uses
  CRT;
var
a:array [1..20] of integer;
i,min,n:integer;
begin
write('Введите количество элементов массива: ');
readln(n);
for i:=1 to n do
  begin
    write ('a[',i,']= ');
    readln (a[i]);
  end;
for i:=1 to n do
  if a[i]>0 then min:=a[i];
for i:=1 to n do
  if (a[i]>0) and (a[i]<min) then
    min:=a[i];
writeln ('min= ',min);
readln;
end.

[ROMA2PVT]

Да и вам забыл сказать b345t тоже не лезьте в чужую тему.За такое наказывают.Лучше попросите в своей чтобы вам сделали блок-схему.