Тема Дано N чисел. Найдите сумму чисел,больших заданного числа ...

Ira

Program n1;Uses CRT;Const n=10;Var x:array[1..n] of integer; i,s,a: integer;beginWriteln('Vvedite chisla');For i:=1 to n do readln(x[i]);Writeln('Vvedite A');Readln(a);For i:=1 to n do if x[i]>a then s:=s+x[i];Writeln('Summa elementov, bolshih a =',s);readlnend.