uses crt; var a:array[1..50] of integer; i,n,z:integer; begin clrscr; writeln; writeln('----------------------------------------'); writeln('vvedite posledovatelnost chisel'); writeln('posle vvoda kazhdogo chisla nazhmi enter'); writeln('----------------------------------------'); for i:=1 to 50 do begin begin writeln('a[',i,'] '); readln(a[i]); z:=a[i] mod 5; if z=0 then z:=a[i] mod 2; if z<0 then if abs(a[i])