X не кратно 7 на языке паскаль