3) - 1

Program nel;
Var Val1,Val2:Integer;
Begin
__Readln(Val1);
__Readln(Val2);
__If (Val1>Val2) Then
__Writeln (Val1);
__Else
__If(Val2>Val1) Then
__Writeln (val2);
__If (Val1 MOD 2) = 0 Then
__Writeln ('Numero Par');
__Else
__Writeln ('Numero Impar');
__If Val2 MOD 2 = 0 Then
__Writeln ('Numero Par');
__Else
__Writeln ('Numero Impar');
End.