помогите пж с 6.48и 6.49 35 баллов дам

Получи 5(6.48) я верую в тебя (кст где ты учишься)

var

 n,k,s,a,b,l,x,y,m,n1:integer;

Begin

 readln(n,k,b,x,y,l,a,m,n1);

 Write('а. ');

 if(n mod 2 = 0) then

   begin

     a := n;

     while a gt; 0 do

       begin

         s := s + a mod 10;

         a := a div 10;

       end;

       if(s gt; k) then writeln('True') else writeln('False');

   end

   else writeln('False');

 a := n;

 s := 0;

 Write('б. ');

 while(a gt; 10) do

 begin

   a := a div 10;

   inc(s);

 end;

 if(s mod 2 = 0) and (n lt; b) then writeln('True') else writeln('False');

 write('в. ');

 a:= n;

 while agt;10 do

 a:=a div 10;

 if(a = x)and(n mod 10 = y) then writeln('True') else writeln('False');

 write('г. ');

 a:=n;

 s := 1;

  while a gt; 0 do begin

       s := s * (a mod 10);

       a := a div 10;

   end;

  if(s lt; a) and (n mod b = 0) then writeln('True') else writeln('False');

 write('д. ');

 a := n;

 s := 0;

 while a gt; 0 do begin

       s := s + a mod 10;

       a := a div 10;

   end;

 if(s gt; m)and(n mod n1 = 0) then writeln('True') else writeln('False');

End.