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

Определить идеальный вес для этого человека. Турбо Паскаль
Сделать при помощи 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.
  • а сложность то в чём? :) Вы хоть что-то писать начали?
  • похожая задачка была в делфи. Во система образования. Нифига не меняется