Помогите пожалуйста, срочно надо

Составь программу на 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;

begina:=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.