Плз по максимальное количкство

Вот программа :   program xxx;   < p> program xxx; < /p> < p> & nbsp; & nbsp; var i, k, d, e, s : integer; < /p> < p> begin< /p> < p> & nbsp; k: =0; < /p> < p> & nbsp; for i: = 10 to 99 do< /p> < p> & nbsp; & nbsp; begin< /p> < p> & nbsp; & nbsp; & nbsp; & nbsp; & nbsp; d: = i div 10; < /p> < p> & nbsp; & nbsp; & nbsp; & nbsp; & nbsp; e: = i mod 10; < /p> < p> & nbsp; & nbsp; & nbsp; & nbsp; & nbsp; s: =d + e; < /p> < p> & nbsp; & nbsp; & nbsp; & nbsp; & nbsp; if i mod s = 0 then k: =k+1< /p> < p> & nbsp; & nbsp; end; < /p> < p> & nbsp; & nbsp; write ('кол-во чисел которые делятся на сумму своих цифр=', k); < /p> < p> & nbsp; & nbsp; readln< /p> < p> end.< /p>

Program ves; var  a1,a2,a3,a4,t1,t2,t3,p,d,vp,b: integer; begin  writeln ('программа вычисляет норму для данного ученика'); writeln ('введи массу учебника 1'); readln (a1); writeln ('введи массу учебника 2'); readln (a2); writeln ('введи массу учебника 3'); readln (a3); writeln ('введи массу тетради 1'); readln (t1); writeln ('введи массу тетради 2'); readln (t2); writeln ('введи массу тетради 3'); readln (t3); writeln ('введи массу пенала'); readln (p); writeln ('введи массу дневника'); readln (d); writeln ('введи массу портфеля'); readln(vp); b: =a1+a2+a3+a4+t1+t2+t3+p+d+vp; writeln ('общая масса портфеля= ' b); if (b< =5) then writeln ('норма')  else writeln ('ненорма'); readln; end.