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

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(Ткани не хватит);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.