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

Var i,n,r,k: integer;    s: array [1..50] of integer;BeginWrite('n=');Read(n);for i:= 1 to n dobegins[i]:= random(100);Writeln(s[i]);end;for i:= 1 to n doif s[i]<2 then s[i]:=0;r:=0;k:=0;for i:= 3 to 7 dobegink:=k+1;r:= r+s[i];end;WriteLn ('kol=', k);WriteLn ('sum=', r);end.