春だけなら ideone/codepad にも text ってあるからそれを使えばいい
free-pascal はなかったのでそうした