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

Предыдущий
вопрос Следующий
вопрос

program CheckWeight;

var
weight: real;

begin
writeln('Введите вес машины (в тоннах): ');
readln(weight);

if weight < 15 then
writeln('Недогруз')
else if weight > 30 then
writeln('Перегруз')
else
writeln('Норма');

readln;
end.