Умоляю посчитайте мне, я вообще не понимаю информатику, прошу посчитайте мне дам 45 поинтов, задания внизу:1. С клавиатуры вводится 10 целых чисел, найти количество чисел, больших 4, но меньших 9. 2. С клавиатуры вводится n чисел, найти сумму чисел, больших 4, но меньших 9. 3. С клавиатуры вводится n целых чисел. Вывести все числа, которые делятся на 3 и нечетные, их количество и произведение.

1.

var num, count, i:integer;

begin

count:=0;

for i:=1 to 10 do

begin

readln(num);

if (num >4) and (num<9) then

count:=count+1;

end;

write(count);

end.

2.

var sum, i, num:integer;

action:string;

begin

action:='еще' ;

sum:=0;

write( 'Чтобы перестать вводить числа, напишите [хватит], чтобы продолжать вводить, напишите [еще]') ;

while action = 'еще' do

begin

writeln('Введите команду') ;

readln(action);

Writeln('Введите число') ;

readln(num);

if (num>4) and (num<9) then

sum:=sum+num;

end;

write(sum);

end.

3.

var mult, count, i, num:integer;

action:string;

begin

action:='еще' ;

mult:=1; count:=0;

write( 'Чтобы перестать вводить числа, напишите [хватит], чтобы продолжать вводить, напишите [еще]') ;

while action = 'еще' do

begin

writeln('Введите команду');

readln(action);

writeln('Введите число') ;

readln(num);

if (num mod 2 <> 0) and (num mod 3 = 0) then

mult:=mult*num;

count:=count+1;

end;

write(mult, ' ', count);

end.