Составить алгоритм в кумире для решения задачи: вычислить У=В(в кубе)+(корень из С)-(корень из А)

#include <string.h>
#include <iostream>

int main() {
  int maxslov = 10;
  char *slovar[maxslov];
  slovar[0] = "Информатика";
  slovar[1] = "Математика";
  slovar[2] = "Алгебра";
  slovar[3] = "Имя";
  slovar[4] = "Паскаль";
  slovar[5] = "Папка";
  slovar[6] = "Сайт";
  slovar[7] = "Вегас";
  slovar[8] = "Телефон";
  slovar[9] = "Пара";
  char *pr[8] = {" ", ".", ",", ";", ":", "-", "!", "?"};
  char *s, *sl;
  int i, j, k;
  bool punct;

  while (true) {
    std::cout<<"s=";
    std::cin>>s;
    s = strcat(s, " ");
    sl = "";
    for ( i = 0; i <= strlen(s); i++ ) {
      for ( j = 0; j <= 8; j++ ) {
        if ( strcmp(pr[j], s[i]) ) {
          punct = true;
        }
        else {
          punct = false;
        }
      }
      if ( !(punct) ) {
        sl = strcat(sl, s[i]);
      }
      else {
        if ( strlen(sl) > 0 ) {
          k = 0;
          for ( j = 0; j <= maxslov; j++ ) {
            if (slovar[j] = sl) {
              k++;
            }
          }
          if (k = 0) {
            std::cout<<"Слово \""<<sl<<"\" написано неправильно,или не найдено в словаре."<<endl;
          }
          else {
            std::cout<<"Слово \""<<sl<<"\" написано правильно."<<std::endl;
          }
          sl = " ";
        }
      }
    }
  }
  return 0;
}

Program array2d;
var
    v_range, v_neg, i, j, n: integer;
    array: array of array of integer;
    i_range, i_neg: array[1..2] of integer;
begin
randomize;
write('введіть n: ');
readln(n);
SetLength(array, n, n);
write('введіть а та b: );
readln(a, b);
for i:= 1 to n do
    for j:= 1 to n do
        array(i, j) := random(100);
for i:= 1 to n do
    for j:= 1 to n do
    begin
        if array(i, j) in a..b then
        begin
              if Assigned(v_neg) then
                  break; {перевірка, чи є негативне значення знайденим}
              v_range := array(i, j);
              i_range[1] := i;
              i_range[2] := j;
        end;
        if array(i, j) < 0 then
        begin
              if Assigned(v_range) then
                  break;
              v_neg := array(i, j);
              i_neg[1] := 1;
              i_neg[2] := 2;
        end;
    end;
if Assigned(v_range) and Assigned(v_neg) then
begin
    array(i_range[1], i_range[2]) := v_neg;
    array(i_neg[1], i_neg[2]) := v_range;
end;
writeln('Виконано.');
end.