1. Дано n чисел. Найти колличество тех, которые делятся на 5, и не делятся на 7. 2. Найти квадраты всех отрицательных чисел среди N заданных. 3. Найти количество чисел, среди N введенных,которые имеют нечетные порядковые номера, а сами являются четными числам. 4. напишите программу для вычисления суммы: - 1*1!+2*2!+3*3!+....+n*n! - 1*3+3*5+5*7+...n(n+2) - 1+11+111+...+111+1-n слагаемых. Помогите, пожалуйста написать программы для паскаля, очень нужно. Заранее спасибо.

Первая (N - количество чисел в исходной последовательности):

const N = 5;
var number, i, count : integer;
begin
    count := 0;
    for i := 1 to N do
    begin
        write(Input number: );
        readln(number);
        if (number mod 5 = 0) and (number mod 7 0) then
            count := count + 1;
    end;
    writeln(Count: ,count);
    readln;
end.

Вторая:

const N = 5;
var number, i, count : integer;
begin
    count := 0;
    for i := 1 to N do
    begin
        write(Input number: );
        readln(number);
        if (number             writeln(Square of ,number, equals ,number*number);
    end;
    readln;
end.