Помогите пожалуйста, срочно надо Составь программу на Pascal для этой задачи:     С кондитерской фабрики отгружают конфеты в коробках по 10 кг, 5 кг и 1 кг. Какое наименьшее количество коробок потребуется для перевозки N килогр...

program lala; var a,b,c,n,v:integer; begin writeln('vvedite chislo konfet'); readln(n); a:=(n div 10); b:=n-(a*10); if b>5 then c:=b-5; b:=1; v:=a+b+c; writeln('naimensee chislo coroboc ravno',v); else v:=a+b; writeln('naimensee chislo coroboc ravno',v); end.

var a,b,c,i:integer; m:real; begin a:=10; b:=5; c:=1; writeln ('Введите массу конфет (кг)'); readln (i); if (i mod 10) =0 then m:=i div a; if (i mod 10) =5 then m:=(i div a)+1; if (i mod 10 =1) or (i mod 10 =2) or (i mod 10 =3) or (i mod 10 =4) then m:=(i div a)+c*(i mod 10); if (i mod 10=6) or (i mod 10=7) or (i mod 10=8) or (i mod 10=9) then m:=(i div a)+1+c*(i mod 5); writeln (m); end.