Помогите составить программы
Введите несколько чисел. Найдите произведение чисел меньших 7.
Введите несколько чисел. Найдите количество двузначных чисел.
Введите несколько чисел. Определить каких чисел меньше - больше 10 или меньше 10
Введите несколько чисел. Вывести числа от 12 до 40 кратные 7.

Спасибо!

Первая программаvar  n, i, x, s : integer;  t : boolean;begin  writeln('количество чисел');  readln(n);  s := 1;  t := false;  for i := 1 to n do    begin      writeln(i,' число');      readln(x);      if x < 7 then        begin          t := true;          s := s*x;        end;    end;  if t then    writeln('Ответ ',s)  else    writeln('Ответ ',0);end.Втораяvar  n, i, x, s : integer;begin  writeln('kolichestvo chisel');  readln(n);  s := 0;  for i := 1 to n do    begin      writeln(i,' chislo');      readln(x);      if (x >= 10) and (x < 99) then        s := s + 1;    end;  writeln('Otvet: ',s);end.Третьяvar  n, i, x, s : integer;begin  writeln('kolichestvo chisel');  readln(n);  s := 0;  for i := 1 to n do    begin      writeln(i,' chislo');      readln(x);      if x > 10 then        s := s + 1      else if x < 10 then        s := s - 1;    end;  if s > 0 then     writeln('chisel >10 bolche')  else if s < 0 then    writeln('chisel <10 bolche')  else    writeln('chisel porovnu');end.Четвёртаяvar  n, i, x : integer;  st : string;begin  writeln('kolichestvo chisel');  readln(n);  for i := 1 to n do    begin      writeln(i,' chislo');      readln(x);      if (x > 12)  and (x < 40) and (x mod 7 = 0) then        st := st + IntToStr(x) + ' ';    end;    writeln('otvet: ',st);end.