Вывести на экран номер всех счастливых билетов и подсчитать сколько их? в чем ошибка? var a,b,c,d,f,e,n: longint; k: real; begink: =0; for n: =000001 to 999999 do begin a: = n mod 10; b: = n div 10 mod 10; c: = n div 100 mod 10; d: = n div 1000 mod 10; f: = n div 10000 mod 10; e: = n div 100000 mod 10; if(a+b+c=d+f+e) then begin writeln(n); k: =k+1; end; end; end. покупатель должен заплатить в кассу s рублей . у него есть купюры в 1,2,5,10,50,100,500 руб. найти наименьшее кол-во , которым он может рассчитаться? !

Var       i1, i2, i3, i4, i5, i6: byte;       k: longint; begin       for i1 : = 0 to 9 do               for i2 : = 0 to 9 do                       for i3 : = 0 to 9 do                               for i4 : = 0 to 9 do                                       for i5 : = 0 to 9 do                                               for i6 : = 0 to 9 do                                                       if i1 + i2 + i3 = i4 + i5 + i6 then begin                                                               writeln(i1, i2, i3, i4, i5, i6);                                                               k : = k + 1;                                                       end;       writeln(k); end. var       money: array[1..7]of integer;       count: array[1..7]of integer;       s, i: integer; begin       money[1] : = 1;       money[2] : = 2;       money[3] : = 5;       money[4] : = 10;       money[5] : = 50;       money[6] : = 100;       money[7] : = 500;             write('s = ');       readln(s);             i : = 7;       repeat               if s > = money[i] then begin                       s : = s - money[i];                       count[i] : = count[i] + 1;               end               else i : = i - 1;       until s < = 0;             for i : = 7 downto 1 do               if count[i] > 0 then                       writeln(money[i], ' p. = ', count[i], ' шт.') end.

Где таблица по которой делать?