1.
PROGRAM O1;
VAR N:INTEGER;
BEGIN
 READLN(N);
 IF N MOD 2=0 THEN WRITELN('TRUE') ELSE WRITELN('FALSE');
END.
2.
PROGRAM O2;
VAR A,B:REAL;
BEGIN
 READLN(A,B);
 WRITELN(SQRT(SQR(A)+SQR(B)):6:3);
END.
3.
PROGRAM O3;
VAR A:CHAR;
BEGIN
 READLN(A);
 WRITELN(CHR(ORD(A)+32));
END.