4. Написать программу, которая выводит на экран последовательность чисел, если число равно 2, выполнение цикла останавливается

Таблица может иметь например такую структуру:

 Участники

id (int "PRIMARY KEY"), surname (char), date_registration (date), confirm (bool)

В таблицу заносятся участники конференции

Описание полей:

id- идентификатор участника, числовой (целый), нужен для того чтобы можно было занести в базу данных 2 участников с одинаковой фамилией и суметь различить их.

surname - фамилия участника (тип данных символьный)

date - дата регистрации участника

confirm - поле определяющее поступила ли оплата участия в конференции от участника (FALSE  - не поступала, TRUE - поступала)  

Как может выглядеть таблица смотри в приложении 

Кроме того можно заменить поле confirm на поле "пол" для определения как обращаться к людям с фамилией например Бондарь (если допусти False, то считаем что мужчина, если True, то женщина, можно и наоборот) 

1.

program asd;
uses crt;
var
a: array[1..10] of integer;
i:integer;
sum:integer;
begin
writeln('Введите 10 цифр по очереди');
for i:=1 to 10 do
begin
readln(a[i]);
if (a[i]>7) then begin a[i]:=7; sum:=sum+1; end;
end;

writeln(' ',sum);

end.

2. смысл задания? 10/2=5 или индексами ты имела ввиду значениями? 

3.
program asd;
uses crt;
var
a: array[1..10] of integer;
i:integer;
naib:integer;
begin
writeln('Введите 10 цифр по очереди');
for i:=1 to 10 do
begin
readln(a[i]);
if (a[i]>naib) then naib:=a[i];
end;

writeln(' ',naib);

end.