Составьте разветвляющуюся программу в паскале:

На автобазе стоят весы. Если машина легче 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.