../../Task/Input-loop/Pascal