Имеется кусок ткани длиной M метров. От него последовательно отрезаются куски разной...

Question

Имеется кусок ткани длиной M метров. От него последовательно отрезаются куски разной длины. Все данные заносятся на компьютер. Компьютер должен выдать сообщение о том что материала не хватает, если будет затребован кусок ткани, большей длины чем имеется.
НА ПАСКАЛЕ, ПОДАЛУЙСТА

Answer 1

Var m,b,c,i:integer;
begin
readln (m);
readln (b); // Сколько будет кусков
for i:=1 to b do
begin
readln(c);
m:=m-c;
end;
If m<0 then writeln('Ткани не хватит');<br>end.