Вывести на экран номер всех счастливых билетов и подсчитать сколько их? В чем ошибка? var a, b, c, d, f, e, n:longint — k:real-begink:=0-for n:=000001 to 9999

вывести на экран номер всех счастливых билетов и подсчитать сколько их? В чем ошибка?
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: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 Writeln(i1,i2,i3,i4,i5,i6);
    end.