Найти максимальное число меньше 5000, которое нацело делится на k .
нужно написать программу в Pascal
5000:k=4500 5000-4500=500