Const nx =0;var s,i,j,z,n:integer;A,B:array[1..nx] of integer;begin writeln('Ввести конец интервала n'); n:= ReadInteger(); for i:=1 to n do begin write(i:3); if i mod 4 = 0 then begin z := z +1;A[i]:=i;end; if i mod 3 = 0 then begin s := s +1;B[i]:=i;end; end; writeln; writeln('Кратных 4 ',z,A);write('Кратных 3 ',s,B);end.