Ввести с клавиатуры 8 чисел (2, 3, 4, 10, 5, 8,

1)Const n=8;

Var p, i, a:Integer ;

Begin

Write ('Введите влсемь чисел') ;

P:=1;

For i:=1 to N do begin

Read(a) ;

If alt;5 then P:=p*a;

End;

Writeln('творенье чисел наименьших 5 ', p) ;

End.

2)Const n=6;

Var p, i, a:Integer ;

Begin

Write ('Введите шесть чисел') ;

P:=0;

For i:=1 to N do begin

Read(a) ;

If alt;0 then P:=p+a;

End;

Writeln('сумма чисел меньших нуля ', p) ;

End.

3)Const n=100;

Var i, s:Integer ;

Begin

S:=0;

For i:=1 to N do begin

If i mod 4=0 then s:=s+1;

End;

Writeln(s) ;

End.