Имеется кусок ткани длиной m метров. от него последовательно отрезаются куски разной длины. все данные заносятся на компьютер. компьютер должен выдать сообщение о том что материала не хватает, если будет затребован кусок ткани, большей длины чем имеется. на паскале, подалуйста
begin
readln (m);
readln (b); // Сколько будет кусков
for i:=1 to b do
begin
readln(c);
m:=m-c;
end;
If m<0 then writeln('Ткани не хватит');
end.