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

program weight;

var s:char;

w, h:real;

begin

write ('Ваш пол? (м - мужской, ж - женский) ');

readln (s);

write ('Ваш вес в кг? ');

readln (w);

write ('Ваш рост в см? ');

readln (h);

case s of

'м': if h - 100 > w then writeln ('Вам надо поправиться')

else

if h - 100 < w then writeln ('Вам надо похудеть')

else writeln ('Вес нормальный');

'ж': if h - 110 > w then writeln ('Вам надо поправиться')

else

if h - 110 < w then writeln ('Вам надо похудеть')

else writeln ('Вес нормальный')

end

end.