......................
............
// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString.ToWords.Reverse; s.Println
end.
Uses crt;
const N=30;
var a:array [1..N] of integer;
i,sum,k:integer;
sr:real;
begin
for i:=1 to N do
begin
readln(a[i]);
sum:=sum+a[i];
end;
sr:=sum/N;
for i:=1 to N do
if a[i]<sr then inc(k);
writeln(k);
<span>end.</span>