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

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

• var
  h, w, y: integer;
  begin
  write('рост? ');
  readln(h);
  write('возраст? ');
  readln(y);
  w := h mod 100;
  case y of
  1..25: dec(w, 5);
  45..120: inc(w, 5);
  end;
  write('вес: ', w);
  end.
• а сложность то в чём? Вы хоть что-то писать начали?
• похожая задачка была в делфи. Во система образования. Нифига не меняется