Написать программу в паскале: Имеется кусок ткани длинной M метров. От него последовательно отрезаются куски равной длины. Все данные по использованию ткани заносятся в компьютер. Компьютер должен выдать сообщение о том, что материала не хватает, если будет затребован кусок ткани больше длины, чем имеется.

PROGRAM LGJ;var m,n:real;beginwriteln('введите длинну ткани');readln(m);writeln('введите отрезаюмую длинну');readln(n);if m<n thenwriteln('материала не хватает!');end.