Нужно сделать программу на примере этой ! Желательно строк на 30. Срочно!!

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.