Compile and Execute Pascal Online

program count_1_to_5;
var
    count, num  :integer;
begin
    count := 0;
    writeln('Input a number');
    read(num);
    while num<>-999 do
       begin
          if  num > 0 then
             count := count + 1;	
          writeln('Input a number');	
          read(num);
       end;	
    writeln('You enter ', count, ' positive numbers' );
end.