Cрочно!! паскаль
var m, k, i; integer;
mas; array [1..10] of integer;
begin
mas[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:=0
for i:=1 to 10 do
if (m>5) and (m mod 2<>0) then k:=k+m
else
if m mod 2=0then k:=k+m
end;
write(k)
end.