Дано целое число n и массив случайных чисел x[1..n].все элементы,меньше 2,заменить нулями.Кроме того,получить сумму и количество элементов,п ринаднежащих отрезку [3;7]

Var i,n,r,k: integer;    
s: array [1..50] of integer;
Begin
Write(n=);
Read(n);
for i:= 1 to n do
begin
s[i]:= random(100);
Writeln(s[i]);
end;
for i:= 1 to n do
if s[i]lt;2 then s[i]:=0;
r:=0;
k:=0;
for i:= 3 to 7 do
begin
k:=k+1;
r:= r+s[i];
end;
WriteLn (kol=, k);
WriteLn (sum=, r);
end.