PascalABC.NET:

• ###
• var (x, y) := RR2;
• if x>y then x-=5
• else if y>x then y-=5;
• Print(x, y)

[any] Pascal

• var x, y: real;
• begin
• read(x, y);
• if x>y then x := x - 5
• else if y>x then y := y - 5;
• write(x, ' ', y)
• end.