Помогите решить задачку паскаль

Question

Помогите решить задачку паскаль

---

Answer 1

Procedure show(t1: serial);
var  x: real;
begin
  while not eof(t1) do
   begin
    read(t1, x);
    if (x > 0) then writeln(x);
  end;
end;