Составить программку на Паскале. Имеется целочисленный массив, состоящий из 10 элем-тов.А)

В цикле от 1 до 10 вводим i-тый элемент массива. Сходу в этом же цикле проверяем два условия: 1) если i lt; 6 то прибавляем этот элемент к сумме1 2) если i чётное и элемент чётный добавляем его к сумме2. С телефона не выделяются абзацы, потому сори за вид. 
Program zzz; Var s1, s2: integer; x: boolean;Var i: byte; Var M: array[1..10] of integer; Begin s1:=0; s2:=0; For i:=1 to 10 do begin Writeln ('введите ',i,'-е число массива'); Readln (M[i]); If ilt;=5 then s1:=s1+M[i]; if ((i mod 2)=0) and ((M[i] mod 2)=0)Then s2:=s2+M[i]; End; Writeln ('Сумма первых 5 частей = ',s1);Writeln ('Сумма чётных частей стоящих на чётных позициях = ',s2);End.