program CheckWeight;

var
weight: real;

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

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

readln;
end.