Первое - каска
Второе -тяжесть
Program summa;
var
a,b,c,d,e,f:integer;
begin
Writeln('Введите 5 чисел : ');
readln(a,b,c,d,e);
f:=a+b+c+d+e;
writeln('Сумма чисел = ',f);
readln;
<span>end.
</span>
Ответ:
Пока карандаши есть в коробке
Берёшь 1 карандаш
Если он простой то кладёшь в белую коробку
В противном случае кладёшь в красную коробку