procedure pder(d2: integer; var v1,v2: vector);
var
  i: integer;
begin { pder }
  for i:=0 to d2 do begin
    v2[i]:=v1[i+1];
    ismult(i+1,v2[i]);
  end;
  for i:=d2+1 to vdim do szero(v2[i]);
end { pder };