Ответ: var x,y:integer;beginx:=0; y:=0;read(x);if (x<>10) theny:=x;writeln(x,’ ‘,y);end.