Создать программу в паскале используя массив: Найти сумму элементов, больших…

program xxx; var i, n: integer; a, s: real; b: array [1… 20] of real; begin writeln ('введите число а='); readln (a); writeln ('введите размерность массива n='); readln (n); write ('введите элементы массива B: '); for i: =1 to n do readln (b[i]); writeln ('исходный массив B: '); for i: =1 to n do writeln (b[i]); s: =0; for i: =1 to n do if b[i] > a then s: =s+b[i]; writeln ('сумма элементов=', s); readlnend.