program PascalGuru;
uses crt;
 
var A:array [1..50] of integer;
    i,n,b,summa:integer;
 
begin
 
writeln('Vvedite PERVYI massiv:');
write('Razmer massiva "n": '); readln(n);
for i:=1 to n do begin write('A[',i,']='); readln(A[i]); end;
 
clrscr;
writeln('Vi vveli:');
write('A: '); for i:=1 to n do write(A[i],' '); writeln;
 
write('Vvedite "b": ') ; readln(b);
summa:=0;
for i:=1 to n do
if A[i]>b then summa:=summa+A[i];
writeln;writeln('Summa: ',summa);
 
 
readln;
end.