Составить программу на языке Паскаль АВС, которая проверит вес по следующему условию:для мужчин: рост-100;для женщин:

program weight;var s:char;w, h:real;beginwrite(\'Ваш пол? (м - мужской, ж - женский) \');readln(s);write(\'Ваш вес в кг? \');readln(w);write(\'Ваш рост в см? \');readln(h);case s of\'м\': if h - 100 > w then writeln(\'Вам надо поправиться\')elseif h - 100 < w then writeln(\'Вам надо похудеть\')else writeln(\'Вес нормальный\');\'ж\': if h - 110 > w then writeln(\'Вам надо поправиться\')elseif h - 110 < w then writeln(\'Вам надо похудеть\')else writeln(\'Вес нормальный\')endend.