Program posneg;

uses WinCRT;

var

   Number:real;

begin

     Writeln ('Enter a number and my cool program will tell you');
     Write ('if it is positve or negative : ');
     Readln (Number);

     if Number>0
       then 
         begin
           Writeln (Number:0:2, ' is a positive number!');
           Writeln ('Isn''t this a great program?');
         end

     else
         begin
           Writeln (Number:0:2, ' is a negative number!');
           Writeln ('Isn''t this a great program?');
         end;

end.