program MPA_z4;
uses crt;
type
     tp = ^sp;
     sp = record
         inf: integer;
         link: tp;
        end;
var
     top, k, x,
       pr, beg: tp;
          n, i: integer;

begin
clrscr;
top := nil;
for i := 1 to 10 do
     begin
     new(k);
     k^.inf := i * 5;
     k^.link := top;
     write(k^.inf, ' ');
     top := k;
     end;
writeln(#10#13, 'Vvedite element, kotorii nada vsatvit: ');
readln(n);

{poisk mesta v spiske}
x := top;
while top <> nil do
     begin
     beg := k;
     k := top;
     top := k^.link;
     i := k^.inf;
     if n > i then break;
     end;
top := x;

k := beg;
{menyaem mestami}
new(x);
pr := k^.link;
x^.inf := n;
x^.link := pr;
k^.link := x;

{Vivod - naoborot (tak legche!)}
x := top;
while top <> nil do
     begin
     k := top;
     top := k^.link;
     i := k^.inf;
     write(i, ' ');
     end;
top := x;
readkey;
end.