c1ddb4c814 2021-03-01 1: n:=3;
c1ddb4c814 2021-03-01 2: if (evenp(n)) then write n," is even" else write n, " is odd";
c1ddb4c814 2021-03-01 3: if (fixp(n)) then write n," is Integer" else write n, " is not Integer";
c1ddb4c814 2021-03-01 4: n:=pi;
c1ddb4c814 2021-03-01 5: if (fixp(n)) then write n," is Integer" else write n, " is not Integer";
c1ddb4c814 2021-03-01 6: n:=3.1;
c1ddb4c814 2021-03-01 7: if (fixp(n)) then write n," is Integer" else write n, " is not Integer";
c1ddb4c814 2021-03-01 8: %
c1ddb4c814 2021-03-01 9: a:=(b+c)^2;
c1ddb4c814 2021-03-01 10: if (freeof(a,b)) then write b," not in ",a else write b," is in ",a;
c1ddb4c814 2021-03-01 11: a:=(c+d)^2;
c1ddb4c814 2021-03-01 12: if (freeof(a,b)) then write b," not in ",a else write b," is in ",a;
c1ddb4c814 2021-03-01 13: %
c1ddb4c814 2021-03-01 14: n:=pi;
c1ddb4c814 2021-03-01 15: if (numberp(n)) then write n," is a number" else write n, " is not a number";
c1ddb4c814 2021-03-01 16: n:=3.1;
c1ddb4c814 2021-03-01 17: if (numberp(n)) then write n," is a number" else write n, " is not a number";
c1ddb4c814 2021-03-01 18: %
c1ddb4c814 2021-03-01 19: if (ordp(n,c)) then write n," before ",c else write n, " after ",c;
c1ddb4c814 2021-03-01 20: n:=z;
c1ddb4c814 2021-03-01 21: if (ordp(n,c)) then write n," before ",c else write n, " after ",c;
c1ddb4c814 2021-03-01 22: %
c1ddb4c814 2021-03-01 23: n:=10;
c1ddb4c814 2021-03-01 24: if (primep(n)) then write n," is prime" else write n, " is not prime";
c1ddb4c814 2021-03-01 25: n:=11;
c1ddb4c814 2021-03-01 26: if (primep(n)) then write n," is prime" else write n, " is not prime";