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.