я не знаю паскаль я учу другие языки, но думаю вам нужно написать общий цикл в котором через каждую 4 итерацию будет выводится ступень. Цикл и в нем уловие IF
На данном сайте используются файлы cookie, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших файлов cookie.