cрочно!! паскальvar m, k, i; integer;mas; array [1..10] of integer;beginmas[1]:=14; mas[2]:=44; mas[3]=72;mas [4]:=36; mas[5]:=58; mas[6]:=57; mas[7]:=48; mas[8]:=91; mas[9]:=62; mas[10]:=45; k:=0for i:=1 to 10 doif (m>5) and (m mod 2<>0) then k:=k+melseif m mod 2=0then k:=k+mend;write(k)end.