Користувач вводить з клавіатури число N. Програма виводить на екран три числа: 1) суму усіх чисел на проміжку від 1 до N; 2) добуток усіх непарних чисел на проміжку від 1 до N. 3) кількість чисел, які діляться націло на 3 на проміжку від 1 до N.

Program SomeProgram;var a : array[0..3] of Integer = (1,7,-7,-14);    i : integer;    count : integer = 0;begin
    // с возможно вам нужно с обычного for    for i in a do begin        if ((i div 7) < 0 ) then begin            count := count + 1;        end;    end;    writeln('(for) количество подходящих чисел: ', count);        // с количество подходящих чисел: ', count);        // с тут главное правльно поставить условие после until    i := 0;    count := 0;    repeat        if ((a[i] div 7) < 0) then        begin            count := count + 1;        end;        i := i + 1;    until i = length(a);    writeln('(repeat until) количество подходящих чисел: ', count);    end.