Вычеркивание цифрыДано натуральное число, содержащее не более N (0 меньше N£9) цифр. Вычеркнув в нем одну цифру, получить наибольшее число. При этом порядок цифр в числе менять нельзя.Пример Input.txtOutput.txt8263015863015

var   s, si, sm: string;   i, n: integer;   f: Text; begin   Assign(f, 'input.txt');   Reset(f);   Readln(f, s);   Close(f);   Assign(f, 'output.txt');   Rewrite(f);   n := Length(s);   sm := Copy(s, 2, n - 1);   for i := 2 to n do   begin     si := s;     Delete(si, i, 1);     if sm < si then sm := si   end;   Writeln(f, sm);   Close(f) end.