unit mikhal; interface type TSymbol = char; Tret = longint; Tretf = integer; Tfile = TSymbol; TArrCifr = array [0..9] of longint; function main(filename : string; ret : Tret):integer; implementation function main(filename : string; ret : Tret):integer; var f : file of tfile; tmp : Tsymbol; Cifr : TArrCifr; errorr : boolean; i, code : integer; max : Tret; begin errorr := false; max := 0; i := 0; {$I-} assign(f, filename); reset(f); seek(f, 0); {$I+} if IOresult <> 0 then main := -1 else begin for i := 0 to 9 do cifr[i] := 0; while not(EOF(f)) and not(errorr) do begin {$I-} read(f, tmp); {$I+} if IOresult <> 0 then errorr := true else begin val(tmp, i, code); if code = 0 then Cifr[i] := Cifr[i] + 1; end; end; if errorr then main := -2 else begin if filesize(f)=0 then main:=-3 {pustoy fail} else begin for i := 0 to 9 do if Cifr[i] > max then begin max := Cifr[i]; Main := 0; ret := max; end else main:=-4; {cifirki koroche net} end; end; end; end; begin end.