Используя линейный односвязный список найти введённое с клавиатуры число, удалить число стоящий перед найденным за 1 позицию и вставить число, введённый с клавиатуры, перед найденным .pascal.

// pascalabc.net 3.2, сборка 1325 от 19.10.2016 begin   var l: =new list< integer> ;   writeln('вводите целые числа, окончание ввода по -777');   var n: integer;   repeat       n: =readinteger;       if n< > -777 then l.add(n);   until n=-777;   writeln('исходный список'); writeln(l);   n: =readinteger('введите искомое число: ');   var p: =l.findindex(k-> k=n); // искомый элемент   if p< 0 then writeln('искомый элемент в списке не найден')   else begin       writeln('элемент ',l.item[p-2],' удален');       l.removeat(p-2); writeln(l); // удалили и убедились       n: =readinteger('введите число для вставки: ');       l.insert(p-1,n); writeln(l)       end end. пример вводите целые числа, окончание ввода по -777 1 6 12 73 -15 34 18 0 24 -777 исходный список [1,6,12,73,-15,34,18,0,24] введите искомое число: 34 элемент 73 удален [1,6,12,-15,34,18,0,24] введите число для вставки: 1000 [1,6,12,-15,1000,34,18,0,24]

Вроде так: var b, c: integer; begin   writeln('введите ваш возраст');   readln(b);     if b < = 0 then writeln('вам 0 лет')         else begin           c : = b mod 100;           if (c > = 10) and (c < = 20) then writeln('вам ', b, ' лет')           else               case (b mod 10) of                 1: writeln('вам ', b, ' год');                 2..4: writeln('вам ', b, ' года');                 5..9, 0: writeln('вам ', b, ' лет')                 end;     end;   writeln('для выхода нажмите < enter> ');   readln; end .