Program Nanny;
Var T: real;
begin
writeln('Проедет ли фура по мосту. Давайте проверим');
writeln('Введите вес фуры');
readln(T);
if T>40
then begin
writeln('Фура не проедет!');
writeln('Разгрузите и попробуйте ещё раз');
end
else begin
if T>30
then begin
writeln('Фура по этому мосту не проедет');
writeln('Но есть мост рядом');
writeln('Разгрузите и попробуйте ещё раз, или едьте на другой мост');
end
else begin
writeln('Фура проедет');
writeln('Счастливого пути!');
end
end
end.