Напишите что делает программа по пунктам Program gt; var a:array[1..1000]of real; n,i:integer; s,b:real; begin readln(n); //n- кол-во чисел массива readln(b); //b-число которое вводиться с клавиатуры для проверки s:=0; for i:=1 to n do begin read(a[i]); if (a[i] > b) then s:=s+a[i]; end; writeln(s); end.