Составить блок схему со стрелочками к программе: Program name; const n=30; var a:array [1..n] of integer;

b1,b2,b3,b4,b5,b6:boolean;
begin
Write('введите 4 любых числа');
readln(x,y,z,d);
b1:=x+y>z-d;
b2:=x-y<=z+d;
b3:=x/y<z*d;
b4:=x*y>=z/d;
b5:=x+y=z+d;
b6:=x-y<>z-d;
Write('сумма первого и второго больше разности второго и третьего;b1');
WRITE('разность первого и второго больше или равна сумме третьего и четвертого;b2');
write('деление первого и второго меньше произведения третьего и четвертого;b3');
write('произвдение первого и второго больше или равна делению третьего и четвертого;b4');
write('сумма первого и второго равна сумме третьего и чертогоb5');
write('разность первого и второго не равна разности третьего и четвертого');
Readln (b1,b2,b3,b4,b5,b6);
End.
исправьте, в паскале, просит ввести доп данные, а я не знаю что делать:(

индексы элемента 1 2 3 4 5 6 7 8 9 10
значение элемента 1 3 5 7 9 11 13 15 17 19

На вход получает N - количество элементов последовательности чисел.
Затем следуют элементы последовательности.
Программа должна вывести все отрицательные элементы последовательности, чьи квадраты не превосходят 7000, в порядке, обратном порядку их ввода.
Например на вход идут:
4
-3
6
-7
-99

На выходе получаем:
-7
-3

Я предлагаю такое начало программы:

program num9;
const N = 5;
var a : array [1..N] of integer;
i, m : integer;
begin for i := 1 to N do
readln (a[i]);
m := a[i];
if (m < 0) and (m*m < 7000) then

Как следует поступить дальше?

program peremena;
const N=8;
var A:array[1..N] of integer;
I,X: integer;
begin
for i:=1 to n do
if i>N then
begin
begin
x:=a[i];
a[i]:=a[n];
a[n]:=x
end;
begin
x:=a[i+1];
a[i+1]:=a[n-1];
a[n-1]:=x
end;
end;
writeLn('массив',A[i]:8)
end.

1. Чему будет равняться x после выполнения фрагмента программы:
x:=0;
repeat
x:=x+8
until x>=21.

2. Дано описание массива
var mas: array [-22;0] of integer;
Сколько элементов содержит данный массив?

3.Определите, что делает следующая программа, и какой результат она выдаст на заданном массиве (1,4,0,-1,-4)
Program n1
const n=5
var a: array [1...n] of integer;
i,b: integer;
begin
b:=a[1];
for i:=2 to n do
if a[i] writeln (b);
end.

4. Допустим, имеется одномерный массив, содержащий от 0 до 49 включительно. Требуется исключить из него все элементы, значения которых меньше 15.

2.Составить блок - схему кипячения чайника.

3.Составить алгоритм сбора яблок в саду.Ваша задача сводится к тому,что необходимо собрать ведро яблок с земли.

4.Составьте алгоритм на формальном языке и блок - схему для решения следущего примера : y=5x+6,если х=3