Вопрос Помогите с программированием. Очень нужно!

Да, пожалуйста, мне не жалко. Но ведь засыпешься ты с этой программой, ой засыпешься: program Project2; type TCounters=array[0..9] of Integer; procedure ZeroCounters(var __Counters: TCounters); var n: integer; begin n:=SizeOf(TCounters); FillChar(__Counters, n, #0); end; procedure CountDigits(_i: Integer; var __Counters: TCounters); begin ZeroCounters(__Counters); while _i>0 do begin Inc(__Counters[_i mod 10]); _i:=_i div 10; end; end; function AllEqual(_i: Integer): Boolean; var Counters: TCounters; i, k:integer; begin CountDigits(_i, Counters); k:=0; for i:=0 to 9 do if Counters>0 then Inc(k); AllEqual:=k=1; end; function TwoInARow(_i: Integer): Boolean; var Previous, Current: integer; begin TwoInARow:=false; Previous:=-1; while _i>0 do begin Current:=_i mod 10; _i:=_i div 10; TwoInARow:=Current=Previous; if Result then Exit; Previous:=Current; end; end; var i: integer; begin Readln(i); Writeln(AllEqual(i)); Writeln(TwoInARow(i)); Readln; end.

Как корабль назовешь, так он и поплывет.//otvet.imgsmail.ru/download/35530148_9f46d572f3ecac60448d3f8ed0e31e48_800.jpg