Код
Program dinam;
Uses crt;
Type
pel=^element;
element = record
num: integer;
next: pel;
end;
Var
first, g,f,r: pel;
a,e,e1:integer;
ok: boolean;
Begin
Writeln ('Введите элементы списка, окончание ввода Ctrl+Z');
Readln (a);
new (first);
first^.num:=a;
first^.next:= nil;
While not eof do
begin
Readln (a);
new (g);
g^.num:=a;
g^.next:= first;
first:=g;
end;
Writeln ('Получившийся список');
f:=first;
While f<> nil do begin
Writeln (f^.num, ' ');
f:=f^.next;
end;
Writeln ('Введите элемент для поиска');
Readln (e);
Writeln ('Введите дополнительный элемент');
Readln (e1);
Writeln;
g:=first;
ok:=true;
While ((g<> nil) and ok) do begin
if g^.num=e then ok:=false
else g:=g^.next;
end;
While g<> nil do
if (not ok) then begin
New(r);
r^.num:=e1;
r^.next:=g^.next;
g^.next:=r;
end;
Writeln ('Результат: ');
f:=first;
While f<> nil do begin
Write (f^.num, ' ');
f:=f^.next;
end;
End.