Составьте разветвляющуюся программу в паскале: на автобазе стоят весы. если машина легче 15 тонн, то недогруз. если больше 30 тонн, то перегруз. иначе норма.

Program asdas;

Uses crt;

var ves:real; //real- ибо нужно допустить вес в 3,5 тонны как пример

begin

readln (ves);

if ves<15

then writeln ('недогруз')

else if ves>30

        then writeln ('норма');

end.