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.
C=((c * c * c) + b + (c / b) - a);
Рассмотрим число 123: 1 - сотни, старший разряд. 2 - десятки, средний разряд, 3 - единицы,младший разряд.
Возьмем два числа 123 и 456.
1. 1 + 4 = 5
2. 2 + 5 = 7 7>5 следовательно 7 ставим справа. 57
3. 3 + 6 = 9 579
789 693
1 13
2 17 1317
3 12 161712
876 966
1 17
2 13 1317
3 12 131712