Помогите с информатикой :) 40б

Можно было сократить код, если вы проходили оператор case

var  height,realWeight,normWeight:real;begin  writeln('Введите рост (в сантиметрах)');  readln(height);  writeln('Введите вес');  readln(realWeight);  normWeight:=height-100;  if realWeight>normWeight then    writeln('Ваш вес (',realWeight,') выше нормы (',normWeight,'). Рекомендуется сбросить вес.');  if realWeight<normWeight then    writeln('Ваш вес (',realWeight,') ниже нормы (',normWeight,'). Рекомендуется набрать вес.');  if realWeight=normWeight then    writeln('У вас идеальный вес.');end.