C4. Построить из строки следующую анаграмму Ограничение времени 1 секунда
Ограничение памяти 64Mb
Ввод стандартный ввод или input. txt
Вывод стандартный вывод или output. txt
Для данного слова (последовательности строчных латинских букв) выведите следующее за ним (в лексикографическом порядке) слово, которое может быть получено из данного перестановкой букв (анаграмму). Если данное слово уже является последним среди всех своих анаграмм, то необходимо вывести первую возможную (в лексикографическом порядке) анаграмму.

Формат ввода
Задана последовательность слов, по одному слову в строке. Длина одного слова не превышает 50 символов.

Формат вывода
Необходимо вывести результат для каждого полученного на вход слова.

пролететь-расстояниепроехать на лифте-номер этажаспрыгнуть-высота,скоростьпоесть-количествоповернуть-время,напровление

а)

var

    p,d,h: real;

begin

    readln(h);

    p: =1200*9.8*h;

    writeln(p);

end.

б)

var

    m,h,r: real;

begin

    readln(h);

    readln(r);

    m: =1200*3.14*h*r*r;

    writeln(m);

end;

в) необходимы дополнительные условия количество сосудов

если принять количество сосудов за k тогда

var

    i,k: integer;

    m,h,r,s: real;

begin

    readln(k);

    s: =0;

    for i: =1 to k do

    begin

            readln(h);

            readln(r);

            m: =1200*3.14*h*r*r;

            s: =s+m;

    end;

    writeln(s);

end.

на листочке чертишь круг,берешь серединку,и получается- 4 клетки вниз и 7 в право

смотри блок-схему в приложенном файле