Помогите составить программы Введите несколько чисел. Найдите произведение чисел меньших...

Question

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

Answer 1

Первая программа
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')<br>  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.

Comments

Спасибо!