Решение нелинейных уравнений в программе паскаль x^3+3x+1=0 [-1; 0] точность е=0, 01

Var m, n, k: real; function f(x: real): real; begin      f : = x * x * x + 3 * x + 1; end; begin      m : = -1; n : = 0;       while n - m > 0.0000001 do      begin          k : = (m + n) / 2;           if f(k) > 0 then n : = k else m : = k;       end;       writeln((m + n) / 2) end.

Program qq;   var x, y, z, c, a, b: real;   begin  writeln('введите стоимость билета бизнесс-класса: ');   readln(x);       if x > 0 then  begin    y: = x / 2;     writeln('введите количество оставшихся билетов бизнесс-класса, затем введите количество оставшихся билетов эконом-класса');     readln(a, b);           if (a > =0) and (b > = 0) then      begin        c: = a*x + y*b;         z: = (120*y + 40*x) - c ;         writeln('доход авиакомпании: ', z);       end      else      writeln('решение невозможно');   end;   end.вот так всё работает. 1.  не там поставили end; 2. лишнее  else  writeln('решение невозможно'); 3. у меня ругался паскаль на то что в условия  при and не взяты в круглые скобки.  if (a > =0) and (b > = 0) then 

Const   n = 5;   en = 'abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz';   ru = 'абвгдеёжзийклмнопрстуфхцчшщьыъэюяабвгдеёжзийклмнопрстуфхцчшщьыъэюя'; var   s : string;   i : byte; begin   readln(s);   for i: =1 to length(s) do   begin       if pos(s[i],en)> 0 then           if pos(s[i],en)+n< =length(en) then               s[i]: =en[pos(s[i],en)+n] else s[i]: =en[pos(s[i],en)+n-length(en)];       if pos(s[i],ru)> 0 then           if pos(s[i],ru)+n< =length(ru) then               s[i]: =ru[pos(s[i],ru)+n] else s[i]: =ru[pos(s[i],ru)+n-length(ru)];   end;   writeln(s); end.