В МАССИВЕ ИЗ 10 НАЙТИ СУММУ ПОЛОЖИТЕЛЬНЫХ ЧИСЕЛ, ОКАНЧИВАЮЩИХСЯ НА 4
ЭЛЕМЕНТЫ МАССИВА ЦЕЛЫЕ ЧИСЛА

спасибо огромное!

// F#[<EntryPoint>]let main argv =    let getRandomCollection n =        let rand = new System.Random()        Array.map (fun x -> rand.Next 100 - 50) [| 1..n |]    let inputArray = getRandomCollection 10    printf "array: %A" (inputArray)    let resultSum =        inputArray        |> Array.filter (fun x -> x > 0 && x % 10 = 4)        |> Array.sum    printf "sum: %d" resultSum    System.Console.ReadKey true |> ignore    0    

program prog;uses crt;var a:array[1..100] of integer;    s,i:integer;beginfor i:=1 to 10 dobeginwrite('a[',i,'] = ');readln(a[i]);end;for i:=1 to 10 dobeginif (a[i]>=0) and ( a[i] mod 10 = 4) thens:=s+a[i]end;writeln;writeln('S = ', s);end.