Запишите алгоритм удаления символа с клавиши backspace.

подвести курсор к элементу удаления 

нажать клавишу backspace. 

//pascalabc.net //версия 3.3, сборка 1634 (14.02.2018) begin   var a : = arrrandom(readinteger('n='), -50, 50); a.println;   var b : = a.indexesof(t -> t.iseven).toarray;   var b1 : = a.where(t -> t.iseven).sorted.toarray;   var b2 : = arrfill(a.length, 1);     if b.length < 0 then begin a.println; exit; end;     for var i : = 0 to b.length - 1 do b2[b[i]] : = b1[i];   for var i : = 0 to a.length - 1 do if b2[i].isodd then b2[i] : = a[i];   b2.println;   end. пример: n= 10 30 9 27 25 -34 25 -5 5 46 -46 -46 9 27 25 -34 25 -5 5 30 46

Var     a,b,c,d: double; begin     write('a = ');     read(a);     write('b = ');     read(b);     write('c = ');     read(c);     d: =sqrt(b*b-4*a*c);     if d > 0 then begin       writeln('x1 = ', (-b+d)/(2*a));       writeln('x2 = ', (-b-d)/(2*a));       end     else       if d = 0 then           writeln('x = ', -b/(2*a))       else           write('решений нет'); end.