Problem:
Score : 100 points

Problem Statement

Given is an integer x that is greater than or equal to 0, and less than or equal to 1.
Output 1 if x is equal to 0, or 0 if x is equal to 1.

Constraints

0 \leq x \leq 1

x is an integer

Input

Input is given from Standard Input in the following format:

x

Output

Print 1 if x is equal to 0, or 0 if x is equal to 1.

Sample Input 1

1

Sample Output 1

0

Sample Input 2

0

Sample Output 2

1

Solution in Pascal (FPC 3.0.4) (judge verdict: Accepted)

program test;
{$mode objfpc}{$H+}{$R+}{$S+}
Uses sysutils;
var
	x		:integer;
begin
    readln(x);
    if (x=0) then writeln(stdout,1)
             else writeln(stdout,0);
end.