PROGRAM PROGRAM3;
USES
  WinCrt;
VAR
  x, y : REAL;
BEGIN
  WRITE('Dva broja ');
  READLN( x, y );
  IF x MOD 2 = 0 THEN 
    BEGIN
      x := x - 2;
      y := x - 2;
	END
  ELSE
    BEGIN
      x := x + 2;
      y := x + 2;
	END;
  Writeln('x= ', x, '  y= ', y);
END.