Дан целочисленный массив размером 17 частей. Найти сумму чисел больше 5.

Program fantscrin;

 const n = 17;

 Var a: array [1..n] of integer;

     i,s:integer;

Begin

 for i:=1 to n do

   a[i]:=random(20);

 for i:=1 to n do

   write(a[i],'  ');

 s:=0;

 for i:=1 to n do

   if(a[i] gt; 5) then s:=s+a[i];

 writeln('');

 write('Сумма: ',s);

End.