Помогите с информатикой :) 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