一些有趣的小程序@Pascal学习日记

一个很简单的程序

program posneg;

var 
 no : integer;
begin
 
  Write('Enger a number:');
  readln(no);
  if (no > 0) then
   writeln('You enter Positive Number(正数)')
  else
    if (no < 0) then
     writeln('You enter Negative number(负数)')
    else
      if (no = 0) then
      writeln('You enter Zero');
  readln;
 end.

---