СРОЧНО Помогите решить 17 и 18

Question

СРОЧНО Помогите решить 17 и 18

---

Answer 1

18
 var 
x,y : integer;
begin
readln (x,y);
if x < y then 
 x := x +1
  else
   begin
   x := x * 10;
   y := y * 10;
   end;
writeln (x,' ',y);
end.

Comments

а 17 сможешь?