Помогите составить программы

Введите несколько чисел. Найдите произведение чисел меньших 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.