Помогите решить (pascal)

Question

Помогите решить (pascal)

---

Answer 1

var

 a, b, Count: real;

begin

 Read(a);

 b := a;

 Count := 0;

 while b <> 0 do

 begin

   if b > a then inc(Count);

   Read(b);

 end;

 Write(Count)

end.