Написать программу определения числа билетов с 6-значными номерами, у которых сумма первых 3 десятичных цифр равна сумме 3 последних десятичных цифр (паскаль)

Program bb; uses crt; var s,a,b,v,z,i: longint; begin s: =1; {учитываем билет с номером 000000} for i: =1 to 999999 do {перебираем билеты от 000001 до 999999} begin     v: =i;     z: =0;     while z< 3 do   begin z: =z+1; a: =v mod 10 +a; v: =v div 10 end; {считаем сумму последних трех чисел}     while z< 6 do   begin z: =z+1; b: =v mod 10 +b; v: =v div 10 end; {считаем сумму первых трех чисел}     if a=b then s: =s+1;     a: =0;     b: =0; end; writeln(s); readkey; end.

1) const x0=1.0; xk=2.0; h=0.1; var x,y: real; i: integer; begin x: =x0-h; for i: =1 to round((xk-x0)/h)+1 do   begin   x: =x+h;   y: =x*cos(x)+sin(x);   writeln(x: 3: 1,y: 7: 3);   end; end. 2) const x0=1.0; xk=2.0; h=0.1; var x,y: real; begin x: =x0-h; while x< xk do   begin   x: =x+h;   y: =x*cos(x)+sin(x);   writeln(x: 3: 1,y: 7: 3);   end; end. результат: 1.0   1.382 1.1   1.390 1.2   1.367 1.3   1.311 1.4   1.223 1.5   1.104 1.6   0.953 1.7   0.773 1.8   0.565 1.9   0.332 2.0   0.077

Объяснение:

аьтаосдсьчт636846т69989=7=7=49497572644%477шоплаьаатсоплояояьяьчьвлцдыллыьыьылвьвьвьвълвововлвооы до т6лрсооо555454647-꒰⑅ᵕ༚ᵕ꒱˖♡꒰⑅ᵕ༚ᵕ꒱˖♡꒰⑅ᵕ༚ᵕ꒱˖♡(´∩｡• ᵕ •｡∩`) (*＾3＾)/～♡♡(> ਊ <)♡( ˘ ³˘)♥(〃ﾟ3ﾟ〃)(◕દ◕)( ˘ ³˘)♥(●’3)♡(ε`●)(*＾3＾)/～♡(●’3)♡(ε`●)(*＾3＾)/～♡(●’3)♡(ε`●)(*＾3＾)/～♡(●’3)♡(ε`●)(●’3)♡(ε`●)(/^-^(^ ^*)/(●’3)♡(ε`●)(●’3)♡(ε`●)(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(●’3)♡(ε`●)(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)надеюсь