Для заданного х вычислите у по формуле при этом: а) операцию возведения в степень использовать запрещено; б) в одном операторе присваивания можно использовать не более одной арифметической операции (сложение, умножение, вычитание); в) в программе может быть использовано не более пяти операторов присваивания. подсказка: преобразуйте выражение к следующему виду:

Y: =x+2.5; y: =y*x; y: =y-1; y: =y*x; y: =y+1;

Var sim: array[0..10] of string; function count_ya(var s: string): integer; begin   var i, n, len: integer;   var c: char;     n : = 0;   len : = length(s);   for i : = 1 to len do begin       c : = s[i];       if (c = 'я') or (c = 'я') then begin           n : = n + 1;       end;   end;     result : = n; end; procedure word(var s: string); begin   var i, c, k, j: integer;     c : = count_ya(s);     for i : = 0 to 10 do begin       if count_ya(sim[i]) < c then begin           for k : = 9 downto i do begin               sim[k + 1] : = sim[k];           end;                 sim[i] : = s;           break;       end;   end; end; begin   var c: char;   var i, k: integer;   var f1: text;   var s: string;   assign(f1, 'file1.txt');   reset(f1);   randomize;   i : = 0;   while not eof(f1) do begin       read(f1, c);       if ((c > = 'а') and (c < = 'я')) or ((c > = 'а') and (c < = 'я')) then begin           i : = 1;           s : = s + c;       end else begin           if i = 1 then begin               word(s);           end;           i : = 0;           s : = '';       end;   end;     if i = 1 then begin       word(s);   end;     close(f1);     for i : = 0 to 10 do begin       s : = sim[i];       if s = '' then break;       writeln(s);   end; end.