Определить идеальный вес для этого человека. Турбо Паскаль

[PASKAL12]

Сделать при помощи case of
Известно такое соотношение идеального веса и роста человека по возрасту: от значения роста человека в сантиметрах берутся последние две цифры, а если возраст человека до 25 лет, то ее вес должен составлять 5 кг меньше полученного двузначного числа, для людей от 25 до 45 лет - равна этом двузначном числу, для старше 45 лет - двузначное число необходимо увеличить на 5. Заданные целые положительные числа Р - рост человека и N - ее возраст (Р <200, N <120). Определить идеальный вес для этого человека.