Ребят помогите срочно!!!!!!

Составить программу по нахождению суммы серединых чисел 4 значного числа
Например : 1234
2+3

ая длина ИНН, если все жители имеют разные номера?

var n,m,head,eye: integer;
begin
writeln('сколько лет вашему дракону?');
readln(n);
head:=1;
eye:=2;
for m:=2 to n do
if m<=100 then head:=head + 3
else head:=head + 2;
eye:=head*2;
writeln('голов',head,'глаз',eye);
end.

компьютерные часы?

и 32 гб. Выясните, кто из ребят получил флешку самого большого и кто - самого маленького объёма, если известно следующее: у Ани объём флешка меньше, чем у Бори; у Васи - больше,чем у Гали; у Даши - меньше, чем у Ивана; у Васи - меньше, чем у Ани; у Даши - больше, чем у Бори.

низкое, если известно, что берёза ниже тополя, липа выше клёна, сосна ниже ели, липа ниже берёзы, сосна выше тополя?
И второй вопрос: Пятеро одноклассников - Аня, Саша, Лена, Вася и Миша - стали победителями школьных олимпиад по истории, математике, информатике, литературе и географии. Известно, что: 1) победитель олимпиады по информатике учит Аню и Сашу работе на компьютере; 2) Лена и Вася заинтересовались информатикой; 3) Саша всегда побаивался истории; 4) Лена, Саша и победитель олимпиады по литературе занимаются плаванием; 5) Саша и Лена поздравили победителя олимпиады по математике; 6) Аня сожалеет о том. что у неё остаётся мало времени на литературу.
Победителем какой олимпиады стал каждый из этих ребят?