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;