Циклы в Паскале. 1)На клавиатуре вводятся 10 чисел. Составьте программу, определяющую произведения чисел, меньших 5.2) На клавиатуре вводятся 10 чисел. Составьте программу, определяющую сумму чисел, меньших 25.

1)

var n, i, s, k:integer;

begin

s:= 1;

k:=0;

for i:=1 to 10 do begin

readln(n);

if n < 5 then begin

s:=s*n;

k:=1;

end;

if k=1 then write(s) else write(0);

end.

2)

var n, i, s:integer;

begin

s:= 0;

for i:=1 to 10 do begin

readln(n);

if n < 25 then begin

s:=s+n;

end;

write(s);

end.