An integer X is given. Write a program that finds out whether it is true that 0 is greater than

An integer X is given. Write a program that finds out whether it is true that 0 is greater than or equal to X and greater than 1. Program in Pascal.

program zz1;
var x, p: integer; // set variables
begin
writeln (‘enter the given number x’); // enter the given number x
read (x);
if (0> = x) and (x> 1) then writeln (‘true’) else writeln (‘not true’); // check if the given number matches the condition, then output “true”, if not, then “not true”
writeln (‘enter the specified number p’); // enter the specified number p
read (p);
if (p mod 3 = 0) then writeln (‘is’) else writeln (‘is not’); // check if the given number is divisible by 3, then we print “is”, if it does not match, then “is not”
end.