case of

Привет всем, нужна помощь с проблемой по паскалю. Суть в том что находится остаток от деления на 6 и пихается в кейс, всё вроде работает, но в кейсе не происходит никаких вычислений, он тупо выводит введёное число. Прилагаю скрин и текст проги: Program lab_6_1_1; Var y:real; a,m,n:integer; Begin...