На руках некоторая сумма денег, рассчитать стоимость покупки 5 вещей и вычислить уложились ли мы в сумму которая на руках. написать программу надо только на pascal.

var

 money , cost , i:integer;

begin

 read(money); // Стартовые деньги

 for i := 1 to 5 do begin

   read(cost); //Ввод цены предмета

   money := money - cost;

 end;

 if(money < 0) then

   write('No')

 else

   write('Yes');

end.

Объяснение: