быстреей! составьте словесный алгоритм, блок-схему и код для программы. ввести одно число, вычислить куб этого числа и вычесть из него утроенную сумму введенного числа.

Ну на паскале я тебе вот набросал а остальное никто за столько делать точно не возьмется :

program z;
var i3,i:integer;beginread(i);i3:=i*i*i;i:=i3-(3*i);writeln(i);end.

Для преобразования текстовых данных в числовые каждый язык программирования имеет свои средства.
1. Ввод (чтение) данных. В любом языке оператор ввода читает текст в виде потока (последовательности) символов, получая их внутренние коды в соответствии с установленной таблицей кодировки. Далее, если эти данные должны быть присвоены, как указано в операторе ввода, числовым переменным, производится выделение последовательностей символов, представляющих собой изображение чисел и осуществляется перекодировка в двоичное представление чисел в соответствии с их типом (целые,  с плавающей точкой) и размещение в нужном количестве байтов памяти.
2. Явное преобразование данных путем вызова процедур или функций конкретного языка. Например, в языке Паскаль это делает процедура Str.
3. Неявное преобразование данных, допустимое в некоторых языках, когда в выражении можно смешивать числовые данные и символьные строки, представляющие собой правильное изображение чисел,  например 12.5+"3.7".

//Язык Pascal

Program multiplication;

Var

  code, rightAnswers, mistakes, answersCount, value1, value2, answer: integer;

Begin

  Randomize;

   

  code := 1;

  rightAnswers := 0;

  mistakes := 0;

  answersCount := 0;

   

  while code = 1 do

  begin

     Write('Проверим? ');

     Readln(code);

     Writeln();

     

     if (code = 1) then

     begin

        value1 := random(1, 9);

        value2 := random(1, 9);

         

        Write(value1, '*', value2, ' = ');

        Readln(answer);

         

        if (answer = value1 * value2) then

        begin

           Writeln('Правильно!');

           rightAnswers := rightAnswers + 1;

        end

         

        else

        begin

           Writeln('Неправильно!');

           mistakes := mistakes + 1;

        end;

         

        answersCount := answersCount + 1;

        Writeln();

     end;

  end;

   

  Writeln('Статистика:');

  Writeln('Задано вопросов: ', answersCount);

  Writeln('Количество правильных ответов: ', rightAnswers);

  Writeln('Число ошибок: ', mistakes);

End.