вроде должна работать это 1 задачаuses crt;var a,i,j,n:integer;beginwriteln('ВВедите кол. конфет в (кг)');read(a);n:=0;if a>=10 then begin n:=n+ a div 10; a:=a-(a div 10*10); end;if (a>=5) and (a<10) then begin n:=n+ a div 5; a:=a-(a div 5*5); end;if (a>=1) and (a<5) and (a<10) then begin n:=n+ a div 1; a:=a-(a div 1*1); end;writeln('Общее количество коробок = ',n);end.-----------------------------------------------------------------------------------------------2 задачаuses crt;var a,i,j,n:integer;beginwriteln('Введите кол. суток');read(a);writeln('Количество часов в ',a,' сутках = ',a*24);writeln('Количество минут в ',a,' сутках = ',a*24*60);writeln('Количество секунд в ',a,' сутках = ',a*24*60*60);end.