var i,res,j: integer; s:string;function power (x,pow:integer):integer;var res: integer;begin res := 1; while ( ... Читать дальше »